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1. INTRODUCTION 


One major purpose of the Skylab program was to determine man's 
adaptability to prolonged spaceflight. NASA experiment M-073 was 
designed to consider man's response in the areas: 

a. Fluid/electrolyte balance; 

b. Regulation of calcium metabolism; 

c. Regulation of metabolic processes; and a 

d. General endocrine/metabolic adaption to a prolonged 
space environment. 

A more detailed description of these studies may be found in 
Leach [1J. 

Contract NAS 9-13042 was negotiated to assist the NASA Endo- 
crine Laboratory in the analysis of M-073. It was apparent from 
the outset of the contract that a storage and retrieval system 
would be necessary to maintain and statistically analyse the large 
amounts of diverse data which needed to be analysed. The original 
system was developed on a Xerox Data Systems Sigma 5 [2] and 
permitted simplified updating procedures and basic statistical 
analyses and graphs by astronaut of any selected parameter available 
on the system. 

When M. D. Anderson converted from the XDS Sigma 5 to a 
Control Data Cyber 73, the system was converted also. This system 
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is documented in this report. The CDC version offers improved file 
handling abilities, improved throughput due to the increased speed 
and disk capabilities, and an ease of program change here-to-fore 
unavailable. This permits rapid and comprehensive analysis of all 
or selected parameters using general purpose programs with few modi- 
fications required. The method of modification is given in Section 
7 . 
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2. INPUT DATA FORMATS 


All data input into the system is made via punched cards. 
Seventeen data forms have been developed for this purpose. Copies 
of these forms are listed in Appendix A. Form 0 is used to enter 
acceptable sample numbers, type of sample, and record time of 
collection. Forms 1, 4, 6, 7, 8, 9, 10, 11, and 12 are for para- 
meters obtained from urine type samples. Forms 2, 3, and 5 are used 
for blood samples. Form 13 is used to record daily weight and water 
consumption; and Form 15 is used to record daily diet information. 
Form 14 is used for all updates and changes to all other forms 
except Form 13 which is updated using Form 14A. It should be noted 
that sample numbers refer to one and only one sample of either urine 
or blood (but not both) and that only the appropriate forms and 
update form type can be filled out using that sample number. 

Decimal points are not required or recommended on the forms. 
Fields are integer unless an implied decimal point is indicated 
between card columns. For example, an entry of 0120 for EPI 
(epinephrine) on Form 1 would indicate a value of 12.0 ygm per 
total volume of sampled urine. Observe then that leading zeros are 
not required but that trailing zeros are preferred to quarantee the 
correct positioning of the number. 

In this system, no zero, negative values, or totally blank data 
is valid. Instead, if data is not available or less than determin- 
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able, then one of the following codes are used: 

-1 — Test not performed 

-2 -- Value is less than determinable 
-3 — Value to follow on update 
-4 — Calculated as combined values 
-5 — Less than a 24 hour period. 

These entries should be justified as if they were data values. For 
example, use -020 for a less than determinable on EPI on Form 1. 

These are an indication to the computer system, as well as the user, 
as to why the datum is not present. A value of -2 will be interpreted 
by the computer as a test value of 0. Any other code will be printed 
on output but not included as an actual test value. 
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3. BUILDING AN INITIAL DATA FILE 


Program Build is used to create an initial set of data files. 

Card number 76 in this program controls the function of the program. 
This card must set INITIAL=0 to create new files. Since this program 
then expects to create new files on mass storage the user must insure 
that none of the files to be built exist. See Section 3.1 for a 
sample deck. 

There are four files required in the retrieval system and it is 
necessary that each of the files contain at least one record. File 
RA1 is the sample directory file and is a random file with the sample 
number as the key for each record. There must be one and only one 
record in this file for every sample. This file is built from sample 
directory cards which are punched from form zero. The sample direc- 
tory cards must be in order of increasing sample number. For each 
sample number in file RA1 there must be a record with a corresponding 
sample number in either RA2, the Urine file, or RA3, the Blood file, 
but a given sample number must not appear in both RA2 and RA3. Both 
RA2 and RA3 are keyed on sample number. 

Within files RA2 and RA3, each record is composed of data from 
one or more data cards. During creation of a file, it is not possible 
to replace an existing record, therefore, only one type of card for 
each file is permissable. It is suggested that only card forms 0, 1, 

2 and 13 appear in a creation deck and that at least one of each of 
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these appear. The simplist way is to include only one of each card 
type in the initial creation, however, this will not produce an 
efficient file structure. Refer to section 2 for form numbers. 

The build program will make few checks on the cards, but will 
print an error message if addition of an existing sample number is 
attempted. The program TYPLOK described later will perform further 
file integrity checks. 

The fourth file, RA4, is the daily parameter file. This file is 
not associated with the sample directory. The key for each record in 
the file is the study number concatenated with the Julian date from the 
daily parameter card. The cards for this file (13 cards only) must be 
in ascending study order and ascending date within study. 

A card with 99 in columns 1 and 2 or an end of file terminates 
the program. 
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3.1 Sample deck to build a new file (CREATE deck) 


NASA, CM6 00000. 

ACCOUNT, AN1 2318. 

GET,OPL=BUILDPL. 

MODIFY, L0=CET,F. 

FTN , I . 

LGO. 

SAVE,RA1 . 

SAVE,RA2. 

SAVE,RA3. 

SAVE,RA4. 

PACK,ZZZZZEF. 

COPYSBF,ZZZZZEF, OUTPUT 
EXIT. 

PACK,ZZZZZEF. 

COPYSBF.ZZZZZEF, OUTPUT. 

7/8/9 (EOR) 

*IDENT UPDT 
*DECK BUILD 
*D 76 

7/8/9 (EOR) 

(Deck of data cards punched from forms 
in the order described in Section 3) 
6/7/8/9 (EOI) 
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4. UPDATING AN EXISTING FILE 


Program BUILD is used to update existing files. Source card 
number 76 must be set INITIALS to update existing files. Any valid 
card in any order may be used to update a file. 

Sample directory or daily parameter records, card codes 00 and 
13, may be added, but existing records of this type cannot be replaced 
unless previously deleted. Sample directory records may be updated by 
use of 14 cards, and a daily parameter record may be updated by use of 
14A cards. 

Any complete record may be deleted by use of a 98 card. This 
will delete a record by file number and key. 

All other record types may be added, or all of the information 
within a record which is contained on one card may be replaced by 
entering the card, or any field may be changed by use of a 14 card. 

The retrieval index shows which values within a record are contained 
on a particular card form and the value index to be used on a 14 
card. 

4.1 Checking Files 

The program BUILD does not cross check the urine, blood and 
sample directory files. Program TYPELOK performs a number of cross 
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checks on these files and prints some tables showing the actual number 
of data points within the files. The output of this program is 
necessarily condensed and therefore intended as a programmers mainte- 
nence tool only. 


4.2 Sample deck to modify an existing file (UPDATE deck) 


NASA.CM60000. 

ACC0UNT.AN12318. 

GET,0PL=BUILDPL. 

MODIFY, L0=GET,F. 

FTN,I ,L=0. 

GET.RAl. 

GET,RA2. 

GET,RA3. 

GET.RA4. 

LGO. 

REPLACE, RA1. 

REPLACE,RA2. 

REPLACE, RA3. 

REPLACE, RA4, 

PACK.ZZZZZEF. 

COPYSBF.ZZZZZEF, OUTPUT. 

EXIT. 

PACK.ZZZZZEF. 

COPYSBF.ZZZZZEF, OUTPUT. 

7/8/9 

*IDENT UPDT 
*DECK BUILD 
*D 77 
7/8/9 

(Deck of cards for additions or 
modifications) 

6/7/8/ 9 


- 10 - 


5. HOW TO RETRIEVE AND PROCESS THE DATA 


The program is logically in two parts, the first part retrieves 
the data, the second part performs the analysis on the data. Data 
is retrieved for one mission (study) over one or more ranges of 
consecutive dates and for one test. Data is retrieved for man 1, 2, and 
3 in order, and data for each individual is passed to the second part 
of the program one man at a time. Those statistical analyses which 
require data for all men simultaneously must modify a section of the 
statistics routine to save the necessary data. See section 7. 

A basic series of statistical tests are performed for each man 
and varies depending on the available data. Data is sectioned into 
preflight, inflight and post flight time periods. All analyses 
assume date is the independent variable and test value the dependent 
variable. 

The program requires a series of data cards to control the data 
retrieval and all data is retrieved from the four files described in 
sections 3 and 4. Appendix E shows the control card functions. 



To retrieve data it is necessary to select the mission (study), 
the test type, the dates and the test name. By reference to Table 
E.3, the codes for the 5 available studies and the 9 test types may be 
found. Reference to Table B1 will show the code number index for the 
various tests. It is necessary to know which type of sample was used 
for a given test. For instance, to obtain the information on Blood 
insulin, test number 304, it is necessary to realize that only blood 
sample types are meaningful. Blood sample types are codes 5, 6, 7 or 
9 from Table E.3. It is possible to retrieve on all 4 possibilities 
and the program will generate a separate report for each type indica- 
ting the empty types. Program TYPLOK will produce a table of the 
number of entries by sample, type and study. The TYPLOK printout 
currently shows that for Skylab 3 {study 3) and Blood insulin (test 
304) that only plasma samples (type 5) were evaluated. It is then 
necessary to know the Julian dates of interest. Table E.3 shows the 
inclusive Julian dates of the various studies. By refering to these 
tables and the control card descriptions the following cards will 
retrieve the desired information. 

JOB DATE 1300 Job card requesting date vs data 

Run number 1300 greater than 1000 indicates plots 


STUDY EACH 3 
DATE ALL 
TYPE EACH 5 
TEST EACH 304 
END 
EOF 


Study 3 (Skylab 3) 

All days 

Only type 5 (Plasma) samples are available 
Test 304 (Insulin) 

End of Job 

End of Control Cards. 
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6. DESCRIPTION OF THE BASIC STATISTICAL ANALYSIS PROGRAM 

Several basic statistical tests, contrasts, and comparisons are 
made routinely when the statistical analysis of a test is requested. 
These analyses are performed on each astronaut separately. Appendix 
C contains a sample analysis for urinary calcium for the Commander of 
Skylab III. The analyses are performed on the Commander, Pilot and 
Support Pilot (or support person if requested) in order and consist 
of: 

1. A diagnostic heading which contains: 

a. Retrieval parameters LSTUDY (number of study selected), 
LMAN (astronaut number), JOB (job type), LTYPE (sample 
type), NSMP and NDATA (number of samples retrieved), and 
LTEST (test number). These are described in more detail 
in section 5. 

b. Data actually retrieved include MTVOL (total volumes 
retrieved, —zero if no volumes retrieved), MDATE (Julian 
sample dates), LHIT (sample numbers), XDATE (test results 
in sample). Corresponding rows and columns of these four 
arrays correspond. That is, on this analysis, no total 
volume was retrieved for Julian Date 188 which had urine 
sample number 1443 and calcium reading of 8.2. 

2. Listing of the data retrieved. The data is listed with Julian 

Date versus sample value separated into preflight, inflight 
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and post flight, respectively. Means, standard deviations, 
and sample sizes for each time period are listed. Data 
points exceeding the 95% tolerance region (above +2 standard 
deviations from the overall mean) are denoted with a single 
"+" sign, above 99% (+2.5 std. dev.) with "++", below 95% 

(-2 std. dev.) with and below 99% (-2.5 std. dev.) with 


3. The means, standard deviations, and standard errors are 
summarized by time with the overall values also given. 

4. A one-way analysis of variance is performed using preflight, 
inflight, and postflight as the three groups in the analysis. 
When only two of the groups are available, the analysis of 
variance is performed on the two groups. An analysis of 
variance table is given as well as the statement of statisti- 
cal significance. 

19.070 is significant at the .1 percent level for the CDR in 
the example of Appendix C. This means that the F-ratio of the 
test is significant at .1% or that the pre-, in-, and post 
flight readings of calcium are different at the 99.9% signi- 
ficance level. Normally, a 1% or 5% is considered statisti- 
cally significant. 

If the F-ratio is significant at the 5% or smaller level, then 
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standard contrasts of pre- to in-, in- to post-, and pre- to 
post flight are performed with an F-ratio and level given for 
each contrast. For the CDR in Appendix C, inflight is statis- 
tically significantly different from both preflight and post 
flight but pre- and post flight are not significantly different 
from each other. Examination of the values of the means would 
then interpret the differences as a statistically significant 
increase in calcium in the urine inflight with a statistically 
significant return to normal preflight levels post flight. 

The analysis of variance was performed using the IMSL [3] 
routine ACRDAN. Mean squares and F-ratios are calculated by 
the program. Significance levels are calculated by the STATCAT 
[4] routines FISH and PHI. The contrasts are calculated using 
the IMSL [3] routine ACTRST. 

5. Non-parametric tests of the Wilcoxon/Kruskal-Wallis type using 
preflight, inflight, and post flight as the three groups in 
the analysis. When only two of the groups are available, the 
tests are performed on the two groups. The groups are pooled, 
ordered in increasing order, and each observation is scored. 

The scores are summed by group and then combined giving the 
weighted score WSCORE. A level is given in the manner of the 
one way analysis of variance. For the CDR in Appendix C, we 
have a WS,C0RE of 38.985 which is significant at the .1% level 
(99.9% significance) and consequently statistically significant. 


- 15 - 



Contrasts are also performed when the test is significant at 
the 5% level or less. The contrasts are Wilcoxon two sample 
statistical tests. The ordering, Wilcoxon-type signed ranks, 
the ranked score W, the standard deviation and the asymptotic 
normal score are all given. Since the hypothesis could be 
either one-sided (calcium inflight is higher than calcium 
preflight) or two-sided (calcium inflight is different than 
calcium preflight), both one- and two-sided levels are given. 

The routine which yields the ordered arrays and scores for 
both the combined analyses is the Kruskal-Wallis routine of 
Lee and Desu [5]. The selection of which data to use is 
performed by the control program. 

6. Plots of the data are also produced on request (see Appendix 
E for request formats). The plots produced for urinary 
calcium on Skylab III are shown in Appendix C. 
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7. MODIFYING THE PROGRAM FOR SPECIAL ANALYSIS 


For performing various special analyses, the program must be 
modified to accomodate the analysis program. Since all of the data 
for each astronaut is available in the subroutine STAT, usually all 
modifications are made only in STAT. Restructuring the data and 
calling of necessary routines is done from STAT. 

Generally, the specialized nature of various analyses requires 
a programmer with some familiarity with both this retrieval and 
analysis program and the program to do the special analysis. As an 
aid to this method of program modification, all program modifications 
are made using a CDC system called MODIFY. By using this system it 
is possible to keep one copy of the standard program with all updates 
included and use MODIFY to create each special program as it is needed 
without disturbing the base program. 


The subroutine STAT receives all of the data for one man at a 

time. The following variables and their meaning are those normally 

used by a special program: 

LMAN(1 ) Current man number 

NOBS Total data points 

NNN(l) Number data points in preflight 

NNN(2) Number data points inflight 

NNN(3) Number data points in post flight 
X Data array in date order 

MDATE Array of corresponding dates 

ICASE 0 No tests or no preflight 

1 Preflight only 

2 Pre- and inflight only 

3 All 

4 Pre and post flight only 
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These values and arrays are good only immediately after statement 
330 in STAT. Note that bad values have been edited out and 
certain following subroutines rearrange the data. 

Two examples of program modifications are included in the pro- 
gram listings. The card decks used to create these modifications are 
listed with the resulting programs in Appendix D. The statistical 
details of the examples are given in [6]. 
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APPENDIX B 


The following table lists: 


INDX 

A Test Number for Each Test 

INDX1 

Record Type (B=Blood» U=Urine) 

INDX2 

Name of Test 

INDX3 

Word Number of Record 

INDX4 

Form Number where Data was Punched 
(See Appendix E for use) 

INDX5 

Field Number of Input Form 
(See Appendix E for use) 
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B 

ACTH 

8 

2 

307 

B 

ADH 

9 

2 

321 
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B 

Cl 

21 

5 

319 

B 

Glu 

22 

5 

320 

B 

TP 

23 

5 

322 

(not used) 




323 

(not used) 


• 

! 















TABLE B . 1 RETRIEVAL INDEX (Continued) 
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APPENDIX C - Sample Basic Statistical Analysis 
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J 0 Cl a * T t 

0 6? 

4 + 

0009*1 l 

69? 


UU03*Z 

92? 


0 J 0 L * 6 

Z9? 

4 

0006*01 

92? 


J LI 0 T * 0 T 

62? 

44 

U U U V. * ? T 

62 c 

4 4 

9 0 0 1.1 * ? 1 

29? 


NV3l-d 



MEAN 


8.316 


1.442 


17 


Su = 


N = 


PARAMETRIC STATISTICS. 


SUMMARY 


SAMPLE 

N 

MEAN 

SO . SE 


PRE 

23 

7.374 

1.832 

.382 

IN 

60 

10.238 

2.200 

.264 

POST 

17 

8.318 

1 . 442 

.350 

SUM 

100 

9.253 

2.350 

.235 

ANALYSIS OF 

VARIANCE 

TABLE. 



OF 

S$ 

MS F 


TREAT 

2 

134.3 

77.2 19.070 


ERROR 

9 7 

392.5 

4.0 --- 


TOTAL 

99 

546.9 

5.5 



19.070 IS SIGNIFICANT AT THE 

.1 

PERCENT 

LEVEL 


contrast f 






PRE-IN 23.317 

is significant 

AT 

THE ,1 

percent 

LEVfL, 

IN-POST 10,464 

is significant 

AT 

THE .2 

PERCENT 

LEVEL, 

PRE-POST 2.531 

is sigmficant 

AT 

THE 11.5 

PERCENT 

LEVEL 

non-parametric statistics. 





1 

observations 


SAMPLE 

SCORES 

1 

3.1 


2 


-99 

2 

4.5 


2 


-97 

3 

5.0 


1 


-95 

4 

5.5 


3 


-93 

5 

5.6 


1 


-91 

b 

5.7 


1 


-89 

7 

5.9 




-87 

8 

fo.O 


1 


-85 

9 

6.2 


1 


-82 

10 

G . 2 


1 


-62 

11 

b.6 


2 


-79 

12 

6.7 


1 


-75 

13 

6.7 


1 


-75 

14 

6.7 


3 


-75 

15 

6.6 


1 


-70 


- 49 - 


le 

fa.e 

1 

- 70 . 

17 

6.9 

3 

- 67 . 

16 

7.0 

3 

- 65 . 

19 

7.1 

1 

— 6 o • 

20 

7.2 

3 

- 61 . 

21 

7.4 

1 

- 59 . 

22 

7.5 

1 

- 56 . 

23 

7.6 

3 

- 56 . 

24 

7.7 

1 

- 53 . 

25 

7.6 

3 

- 46 . 

26 

7.6 

1 

- 48 . 

27 

7.6 

1 

- 48 . 

26 

7.6 

2 

- 48 . 

29 

7.9 

3 

- 42 . 

30 

7.9 

2 

- 42 . 

31 

e.o 

1 

- 39 . 

32 

6,2 

1 

v - 56 . 

33 

6.2 

1 

- 36 . 

34 

6.3 

2 

- 33 . 

35 

6.4 

2 

- 31 . 

36 

6,5 

3 

- 29 . 

37 

8.6 

2 

- 26 . 

36 

6.6 

2 

- 26 . 

39 

8.7 

1 

- 23 . 

40 

6.6 

2 

- 18 . 

41 

8.6 

2 

- 18 . 

42 

6.6 

3 

- 16 . 

43 

8.6 


- 16 . 

44 

9.1 

2 

— 8 . 

45 

9.1 

3 

- 8 . 

46 

9.1 

2 

- 8 . 

47 

9.1 

2 

- 8 . 

46 

9.1 

2 

- 8 . 

49 

9.1 

3 

- 8 . 

50 

9.2 

r, 

t, 

0 . 

51 

9.2 

£ 

0 . 

52 

9.4 

3 

4. 

53 

9.4 

2 

4. 

54 

9.5 

1 

8 . 

55 

9.5 

2 

a. 

56 

9.6 

2 

n. 

57 

9.7 

2 

13 . 

56 

9.6 

2 

17 . 

59 

9.6 

3 

17 . 

60 

9.6 

2 

17 . 

61 

30.0 

2 

22 . 

62 

10,0 

2 

22 . 

63 

10 . 1 

2 

25 . 

64 

10.2 

2 

28 . 

65 

10.2 

2 

28 . 

66 

10.3 

2 

33 . 

67 

10.3 

2 

33. 

66 

10.3 

2 

33. 

69 

10.4 

2 

39 . 

70 

10.4 

3 

39 . 

71 

10.4 

2 

39 . 

72 

10.5 

2 

45 . 

73 

10.5 

2 

45 . 

74 

10.5 

2 

45 . 

75 

10.7 

2 

50 . 


50 - 



76 

10.7 

77 

10.6 

78 

10.8 

79 

10.9 

80 

10.9 

81 

11.0 

82 

11.0 

83 

11,0 

64 

11.1 

85 

11.2 

86 

11.4 

67 

11.5 

86 

11,6 

69 

11.7 

90 

11.6 

91 

11.6 

92 

11.8 

93 

11.9 

94 

12.0 

95 

12.3 

96 

12.7 

97 

12.9 

98 

14,1 

99 

14.3 

10 0 

19.8 


2 

2 

2 

2 

2 

2 

2 

3 

2 

2 

2 

2 

2 

2 

2 

A 

£ 

2 

£ 

2 

2 

2 

1 

2 

2 


50. 
54. 
54. 
58. 
58. 
63 . 
63 . 
63. 
67. 
69. 
71. 
73. 
75. 
77. 
81. 
81. 
81. 
85. 
87. 
89. 
91. 
93. 
95, 
97. 
99. 


SAMPLE W(I> toil) 

1 -1259. £3, 

2 1724. 60. 

3 -465. 17. 

B = 131171.95 T = 333106. 


WSCORE = 3.8.985 

38.985 IS SIGNIFICANT WITH PROBABILITY LESS THAN .100 PERCENT LEVEL 


contrast PRE-IN 

1 
1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


observations 

3.1 

4.5 

5.0 

5.6 

5.7 
5.9 
6*0 

6.2 
6.2 
6.6 

6.7 

6.7 

6.8 
6.6 

7.1 
7.4 


SAMPLE 

2 

i 

i 

i 

i 

i 

i 

1 

2 
1 
1 
1 
1 
1 
1 


SCORES 

-82. 
-80. 
-78. 
-76. 
-74. 
-72. 
-70. 
-67. 
-67 . 
-64. 
-61. 
-61. 
-57. 
-57. 
-54, 
-52, 
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IT 

7,5 

1 

- 50 . 

ia 

7.7 

1 

- 48 . 

19 

7.6 

2 

- 44 . 

20 

7.8 

1 

- 44 . 

21 

7.6 

1 

- 44 . 

22 

7.9 

2 

- 40 . 

23 

6.0 

1 

<* 38 . 

24 

0.2 

1 

- 35 . 

25 

6.2 

1 

- 35 . 

26 

8.3 

2 

- 32 . 

27 

8.4 

2 

- 30 . 

20 

6.6 

2 

- 27 . 

29 

0.6 

2 

- 27 . 

30 

8.7 

1 

- 24 . 

31 

8.6 

2 

- 21 . 

32 

6,6 

2 

- 21 . 

33 

9.1 

2 

V - 15 . 

34 

9.1 

2 

- 15 , 

35 

9.1 

2 

- 15 . 

36 

9.1 

2 

- 15 . 

37 

9.2 

2 

- 9 . 

30 

9.2 

2 

- 9 . 

39 

9.4 

2 

- 6 . 

4 0 

9.5 

1 

- 3 . 

41 

9.5 

2 

- 3 . 

42 

9.6 

2 

0 . 

43 

9.7 

2 

2 . 

44 

9.6 

2 

5 . 

45 

9.6 

2 

5 . 

46 

10.0 

2 

9 . 

47 

10.0 

2 

9 . 

46 

10.1 

2 

12 . 

49 

10.2 

2 

15 . 

50 

10.2 

2 

15 . 

51 

10.3 

2 

20 . 

52 

10.3 

2 

20 . 

53 

10.3 

2 

20 . 

54 

10.4 

2 

25 . 

55 

10,4 

2 

25 . 

56 

10,5 

2 

30 . 

57 

10.5 

2 

30 . 

58 

10.5 

2 

30 . 

59 

10.7 

2 

35 . 

60 

1 C . 7 

2 

35 . 

61 

10.8 

2 

39 . 

62 

10.6 

2 

39 . 

63 

10.9 

2 

43 . 

64 

10,9 

2 

43 . 

65 

11 . C 

2 

47 . 

66 

11.0 

2 

47 . 

67 

11.1 

2 

50 . 

68 

11.2 

2 

52 . 

69 

11.4 

2 

54 . 

70 

11.5 

2 

56 . 

71 

11,6 

2 

58 . 

72 

11.7 

2 

60 . 

73 

11.6 

2 

64 . 

74 

11.6 

2 

64 . 

75 

11.6 

2 

64 . 

76 

11,9 

2 

68 . 
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77 

12.0 

78 

12.3 

79 

12.7 

60 

12.9 

31 

14.1 

82 

14.3 

83 

19.8 


2 

2 

2 

2 

1 

2 

2 


70. 

72. 

74. 

76. 

78. 

BO. 

82. 


W ST. DEV. ASYMPTOTIC 

Vi SC ORE 

-1089. 196.53 -5.54 

-5.54 IS SIGNIFICANT AT THE 
-5.54 IS SIGNIFICANT AT THE 


.2 PERCENT LEVEL -TmO TAILED TEST 
. 1 PERCENT LEVEL - 0 i\t F TAILED TEST 


CONTRAST IN-POST 


1 
1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

31 

32 

33 

34 

35 

36 

37 


OBSERVATIONS 

3.1 

4.5 

5.5 

6.6 

6.7 

6.9 
7.0 

7.2 

7.5 

7.8 

7.6 

7.9 

7.9 
6.5 

6.4 

6.5 


SAMPLE 

2 

2 

3 

9 

3 

3 

3 

3 

3 

3 

2 

3 

c. 

2 

£ 

3 



SCORES 

-76. 
-74, 
-72. 
-70. 
- 68 . 
- 66 . 
— 64 , 
- 62 . 
- 60 , 
-57. 
-57. 
-53, 
-53, 
-50. 
-48. 
-46, 
-43, 
-43. 
-37. 
-37. 
-37. 
-37. 
-27. 
-27. 
-27. 
-27. 
-27. 
-27. 
-19. 
-19. 
-15. 
-15. 
- 12 . 
-10 . 
-6. 
-4. 
-4. 
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36 

9.8 

2 

-4. 

39 

10.0 

2 

1. 

40 

10.0 

2 

1. 

41 

10.1 

2 

4. 

42 

10,2 

2 

7. 

43 

10.2 

2 

7. 

44 

10.3 

2 

12. 

45 

10,3 

2 

12. 

46 

10.3 

2 

12. 

47 

10.4 

2 

18. 

46 

10.4 

2 

18. 

49 

10.4 

3 

18. 

5U 

10.5 

2 

24. 

51 

10.5 

2 

24. 

52 

10.5 

O 

24. 

53 

10.7 

*r. 

29. 

54 

10,7 

2 

29. 

55 

10.6 

2 

33. 

56 

1 C . & 

2 

33. 

57 

10.9 

2 

37. 

58 

10.9 

2 

37. 

59 

11.0 

2 

42. 

60 

11.0 

3 

42. 

61 

11.0 

2 

42. 

62 

11.1 

2 

46. 

63 

11.2 

2 

48. 

64 

11.4 

2 

50 . 

65 

11.5 

2 

52. 

66 

11.6 

2 

54. 

67 

11.7 

2 

56. 

66 

11.6 

2 

60. 

69 

11.8 

2 

60 . 

70 

11.6 

2 

60. 

71 

11,9 

2 

64. 

72 

12. C 

2 

66. 

73 

12.3 

2 

66. 

74 

12.7 

2 

70. 

75 

12.9 

c.. 

72. 

76 

14.2 

?. 

74. 

77 

19,8 

2 

76. 


w ST. DEV . ASYMPTOTIC 

If’ S C 0 R E 

635 • 162.77 7. SC 

3.90 IS SIGNIFICANT AT THE .2 PERCENT LEVEL -TwO TAILED TEST 

3.90 IS SIGNIFICANT AT THF .1 PLRCE'N ( LEVEL -ONE TAILED TEST 


CONTRAST pre-post 


OBSERVATIONS 

SAMPLE 

SCORES 

b.C 

1 

-39. 

5.5 

3 

-37. 

6.6 

1 

-35. 

5.7 

1 

-33. 
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5 

5.9 

6 

6 « G 

7 

6.2 

a 

6.2 

9 

6.7 

10 

6.7 

n 

6.7 

12 

6,6 

13 

6.6 

19 

6.9 

15 

7.0 

16 

7.1 

17 

7,2 

16 

7.9 

19 

7.5 

20 

7.5 

21 

7.7 

22 

7.8 

23 

7.6 

29 

7.6 

25 

7.9 

26 

8.0 

27 

6.2 

26 

8.2 

29 

.8.5 

30 

6.7 

31 

6,8 

32 

8,e 

33 

9.1 

39 

9.1 

35 

9.9 

36 

9.5 

37 

9.8 

38 

10,9 

39 

11,0 

90 

19.1 


1 

1 

1 

1 

1 

3 

1 

1 

3 

3 

3 

1 

3 

1 

1 

3 

1 

1 

1 

3 

3 

1 

1 

1 

3 

1 

3 

3 

3 

3 

3 

1 

3 

3 

3 

1 


*31. 
-29. 
-26. 
-26. 
- 21 . 
- 21 . 
- 21 . 
-16. 
- 16 . 
-13. 
- 11 . 
-9. 
-7. 
- 5 . 
- 2 . 
- 2 . 
1. 
5. 
5. 
5. 
9. 
11 . 
19. 
19. 
17. 
19. 
22 . 
22 . 
2b. 
26. 
29. 
31, 
33. 
35. 
37. 
39. 


W ST. DEV. 

-170. 73.05 

2.31 IS SIGNIFICANT 
2.31 IS SIGNIFICANT 


ASYMPTOTIC 

WSCOHE 

-2.31 

AT THE 2.1 

AT THE 1.0 


PERCENT LEVEL -TWO TAILED TEST 
PERCENT LEVEL -ONE TAILED TEST 


ORIGINAL PAGE IS 
OP POOR QUALITY 




JULIRN DRTE 



APPENDIX D - Examples of Program Modifications 



D.l Program BUILD for creating and updating 
the data files as described In Sections 
3 and 4 




- 58 - 



o r> 


PROGRAM BUILD ( INPUT , OUTPUT , T APE1 = INPUT ) 

. . *_i ii . » *L,r i- r 


RAl = SANPL.F. directory 


EXTERNAL 
EXTERNAL 
EXTERNAL 
E X T L R N A L 
COMMON 


RA3=BLOOO FILE 


*** RA2 =UKINE rile *** 

*** RA4=DAILY FILL *** 

ERROR 1 
ERROR? 

ERRORS 
ERR0R4 

FITRAK35) *FITRA2(35) ,FI1KA3<35> ,F ITRA4 l 3b) 

COMMON /SISRUF/ IE UF ( 3?) » I UK ( 125 ) , 16L ( 35 ) , IUURr < 30 ) ♦ KE£ » KEF* 

+ INITIAL ♦ I CODE 

DIMENSION IN ox ( 136 ) , IND*1 <1^6 ) , INL'X2 ( 13b ) , I t\i 0 X 3 ( 136), 

. I ijf.’X 4 ( 1 36 ) , 1 MDX 5 ( 1 36 ) 

DIMENSION KARO ( 8)* ITFMP(35), IUDATE (4)» XTENM35) 

INTEGER KEY (2) , KY E ( 3 ) 

equivalence citemp(I) ,xtemp(d > 

EQUIVALENCE (I UU ATE ( 4 ) ♦ XULATE ) 

EQUIVALENCE ( RLE , KEY (?) > , (KER,KYE(3) ) 

DATA < I Mix (I), I = l,136)/4 0G,4Ul,4lJ2»4C3,4U4,4u5,5G3*406»40i r »40a, t l09,BUIlB 

RU IL \, j 

4 11 ',41 2.41 3*4 14 ,415,416,417,418,419,42 0 ,4 2l * 42? * 423 * 424 ♦ 425 ♦ 426 * BUILD 
4 27,426,4 29,430 , 431 , 432 , 433 , 434 , 4 3b , 4 36 , 4 37 , 43ft , 4 39 , 440 ,441,442, BUILD 
4 4 3, 444, 44b, 4 46, 447, 446, 449 ,450 ,4bl , 452 , 4 53 , 4b4 , 455 , 456 , 457 , 458 , BU ILD 
4b9,46U , 461* 4 62, 463, 464, 465, 466,4 67*4 68, 4 1>9, 47 0,47 1,47 2, 47 3, 474, BUILD 
475, 4 76* 477, 4 76, 479, 48 0,4^1, 462* 483, 464, 485,466, 467, 468 , 469,490, BUILD 
4 91,492* 493,494, 495,496 , 497 , 498 , 4 99 » 5 0 0 , 50 1 , 50? , 30 0 , 30 1 , 302 * 30 3 * BU ILD 

304 , 305,306,307 , 321 , 308,309, 310 , 31.1 , 31? , 313, 314 , 315 , 316 , 317 » 318 , BUILD 


BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

build 


1 

2 

3 

4 

5 
b 

7 


• 6 X 9 t 

8 320, 514, 6 15, bl6, 517, 518, 519, 520, 521, 822,523/ 

DAl A ( INDX1 ( I) ,I=l,i36)/l04*lRU,22*lKB,lU*lKU/ 


DATA ( INDX2 ( I) , 1=1 , 70)/ 

. oHHYDRO , ORAL DO , 8H170U 
. 8 HR » 

. 6 HMD 
.8HCRFAT 
. 8HMO 
• 8hCK 

.oh and 


1 0HP04 ,6HCA 

♦ OHURICACID.RHI? 

, 6HCi( 

, 6HRL 
, 6HC.T 1 0 


»8HliOHETlO,8HTOTAL 
. OHHYP , OH ASP 

.8H6LY , 8HAL A 

.0HLEU , 8HTYR 

.8HETH , 8HNH3 


8 HZN 
, ft.HMN 

, p- H D H E A 
MG.6HLYS 
, pHTHft 
. 8HCYS/2 
. 8 HP HE 
.8HLYS 


8HEPI 
, ftiiBHl AA 


01 ILL 
ON SI 
8 1 i T l 
ri-il. I 

0 Fill =0Afa 
fthillS 
8HSEH 
8 m V AL 
6)4 1LY S 


DATA ( INUX2( I > , 1=71, 126 >/ 


, OHTRY 
,6HTAR 
, 8HASPNH2 
, 8H6LCNH2 
, 8HC Y S/2 
, 8HPHE 
, 6HANGIC 


. OHCRE 
, OHUREA 
, OHGLUNH2 
« OHGLY 
, rHCYT 

, ahbeta-ala 
.CH INSULIN 


. OHANS 
♦SHPlTN 
. OH SLR 
.6HCIT 
.QHVAL 
.8HTYK 
. OI-ihGN 

. CUTEST OS , 

.OHPTH , &HC AL , AHVIT.D. 

, ahK , OHMG , ftHP04 

*DAT'A t InDX 3 ( l), 1 = 1,1 36 )/2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,14, 15,16,17, 

1 18 , ] 9 , 20 , 2 l, 22 , 23, 24, 25, 26, 27, 26, 29, 30,31,32,33, 34, 35, 36, 37, 38, 

2 39 , 4 Cf , 41 , 42 , 43, 44, 45 , 46 , 47 , 48 , 49 , 50 , 51 , 52 , 53, 54 , 55 , 56, 5'7, 58, 59, 

3 60, 61, fa2, 63, 64, 65, 66, 67, 68, 69, 70, 7 1,72, 73, 74, 75,76, 77, 78, 79, 00, 

4 61,02, 83, 84, 85 , 86 , 87 , 88 , 89 , 90 , 91 , 92 , 93 , 94,95 , 96 ,97,90,99,100* 


, 8HNDRLP I 
, 81 tUSHU 

, 8HI I 
,8HFK 
, 6 Hi-,1 
, ftl )R b 


,8HADH 
, 8HNA 

, 8HSP.GR. 
, 8HAL 
,8HSR 
, 8HPD 


, ft H 1 1 = u E f 1 0 , 8 H 1 1 0 H A N D 
, 8MNH3 , 8HARG 

, OHGLU , 8HPR0 

, 8HMLT , QHILE 

, 8HGAMMA-AB, SHORN 


BUILD 
BUILD 
BUILD 
, BUILD 
, BUILD 
BUILD 
, BUILD 
.BUILD 
.BUILD 
.BUILD 
, BUILD 
♦BUILD 
♦BUILD 
♦BUILD 
, BUILD 


8H1-CH-H1S.8HH1S 


ft 1 1 C A R 
OHH Yf 1 
OHSAR 
6H AL A 
6HHET , AHIL.F 

BHDETA-AlB.ehtlYDRO 


,8H3-CH-HlS/BUILl.) 

BUILD 

♦ 8HARG , 8HPSER , BUILD 

, 8HASP , 8HTHR , BUILD 

,8HPf<0 , 8HGLU .BUILD 

, 8H ALPHA- A A , 8HALPHA-AB , BUILu 

♦BUILD 


8HT4 

OiiTSH 
8 i ( C A 


1 8HACT H 

, OMOSMO 
, G H C L 


, 8HLEU 
, 8HALD0 
, 8HA0H 

♦ 8HNA 
, 8HGLU 


♦BUILD 
♦ BUILD 
BUILD 
♦BUILD 
♦BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
DU ILD 
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no on noon 


c 

c 


5101 ,10?., 103, 104,10 5, 2, 5. 4, 5, 6. 7. 8,9, 10, 11,12,13, 14,15,16,17,18,19, 

if, ?u, 21, 22, 23, 116, 117, 118,119, 120, 121, 122, 123, 124 ,125/ 

DATA ( ll'SUXA (I) ,1 = 1,136) /7 *1,11*4, 15 *6, 9*7, 4*8,15*9,14*10, 

1 15*11, 14*12,9*2, 4*3,9*5,10*15/ 

DATA ( I MUX 5 ( I ) ,1=1,136) /3,4 , 5,6, 7, 6,9, 3, 4, 5,6,7,6,9,10,11,12,13, 

1 3, 4, 5, b,7»8,9,10, 11, 12, 13 »14, 15, 16, 17, 3, 4, 5, 6,7, 8, 9, 10, 11, 3, 4* 

3 5 7^6 I 9, 10,11, 12, 13, 14, 15. lb, 17, 3, 4, 5, 6, 7, 6, 9, 10, 11, 12,13, 

4 14 , 15 , 16 , 3 , 4 . 5 , 6 , 7 , «, 9 , 10 , 11 . 12 , 13 , 14 , 15 , 16 , 17 , 3 , 4 . 5 , 6 , 7 , 8 , 9 , 

5 10, 11 , 12, 13. 14, 15, 16, 3, 4, 5,6, 7 ,8, 9, 10, 11, 3. 4, 5, b, 3% 4. 5. 6, 7. 6, 9, 

6 1 0 , 11,3,4,5*6,7, 8, 9, 10, 11, 12/ 


ILK 8 = 0 

St'T 1MT1AL 1 FOK EXISTING FILES 0 FOR IMtW FILES 

INITIAL = 0 „ , r-^- 

CALt_ F ILLlslF lyKAl ,3LI FN,3LHA1 .3LU.SA, IbuF,2t.RL., 350 ,2LKA .RLE, 
+ 2 LkK‘ ,0,2LKL,10j2lkT ,iLl ) 

CALL F ILL IS ( FIT I A2 ♦ 3LI FIM , 3LKA2 , 3L U S A , I UK , 2L KL , 1 250 , 2LK A , KEE, 

+ 2LkP,0,2LKL,i0,2LKT,lLD 

CALL F ILElSt FI TF.A3 , 3LI FN , 3LKA3 , 3L WSA , 1BL , 2LKL, 3b 0 , 2LK A , KEE « 
+ ?L Kf' , 0 , 2LKL » 10 * 2LKT , 1L1 ) 

CALL FILL IS ( FIT KA4 « 3tl Ff\l» 3L^A4 , 3L.WSA , 1 BUFF *2LKL , 3G0,2 LKA»kEF» 
+ 2LKP, 0 ,2LKL, 10.2LKT, lLl ) 

CALL STCKEF (FITLA1,3LF{?L, 0 ) 

CALL SFOhFF IF11FA?,3LCKL,0> 

CALL STOKLFIFITF A3,3LFPL,0 ) 

CALL STOKLF ( F IT RA4 , 3LFPL , 0 ) 

CALL STUKEF (FlTRAl,2Lfy .EKRORl ) 

CALL STORE! ( F I T R A2 , 2LFX , F F<ROR 2 ) 

CALL S I GREF ( F 1 T KA3 , 2LF X , ERKOR3 ) 

CALL STukLF (FITRA4 , 2LF X ♦ El:R0R4 ) 

IF l IMT IaL.EO.I ) CO TO 106 

CALL F Al iDOF-i ( 0 » EL A In) ♦ 3 b » 5 » 7 » 10 OS , 1 0 OS , I CODE , LOC ) 

CALL KA'.;l OF { p , 0 R A 2 *1 , 125 , 5 , 7 ♦ 10 os, 10 US, icole , LUC ) 

CALL R a UU 0 f- ( 0 , n 1 K A 3 6 , 32,5,7, loos, 100 S, ICODE,lOC) 
call RAM DoF ( n , aKA4ai , 30 , 5 , 11 * 1 0 OS , 10 OS ♦ 1 LqEE « LoC ) 

CALL S rOhtlF ( FlTRAl ,2LRR,5) 

CALL STOKEF < F I T RA2 , 2 L P D , 5 ) 

CALL StOKEF tFlTKA3,2l.RP ,5) 

CALL STOFEF (F1TKA4,2lrP»5 ) 

CALL STOKEF (FITRftl »3EP’hR, 350 ) 

CALL STOKEF (FITKAE, 3LFf R, 1250) 

CALL STOREF (FlTRA3,3LfhR. 35o) 

CALL S TQREF ( F IT R A4 , 3li v I'.R ♦ 30 0) 

CALL ST JREF (FlTRAl, 3LNRL, 350 ) 

CALl SrORtF ( FITKA2 , 3LI-RL , 1250 ) 

CALL STOKEF (FlTl< A3 , 3Ll‘ FL , 350 ) 

CALL STOREF (FITKA4 ,3LFRL , 300) 

CALL L'PEiMi'I( F ITKA1 , 3L[\|F 6 ) 

CALL OPEKK ( F 1 T F A 2 ♦ 3LNpF > 

CALL OPEkFi ( F I TKm3 , 3L.NEK ) 

CALL OPEIMFKF ITRA4 , 3L.RF l, ) 

GO TO 40 

106 CGN'riNUE 

10 6 CALL R ADDOF ( 4 ♦ Q'l • A 1 « , 35 , 5 , 7 , 1 0 OS , 1 0 0 S , I C ODE , LOC ) 

CALL KANL)Of J ! ( 4 , 64; A2S) , 1P5 » 5 , 7 , 1 0 OS , 1 0 OS , I CODE , LOC ) 

' CALL R AMDuK ( 4 , o RA3S) , 3? , 5 , 7 * 1 0 OS , 1 00S, ICUDE , LOC ) 

CALL R ANDUF ( 4 , ii'RA4 a) , 30 , 5 , 1 1 > 1 0 OS , 1 0 OS , 1 COLE * L OC ) 

CALL OP ELM ( F 1 TR : A 1 , 3L T - 0 ) 


ORIGINAL PAGE IS 
OF POOR QUALITYi 


RUILD 

RUILD 

RUILD 

BUILD 

build! 

RUILD 

BUILD 

BUILD 

BUILD 

build 

FiUILU 

RUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

bu ill» 

RUT.L(! 

build 

flUILD 

RUILD 

BUILD 

BUILD 

RUILD 

RUILD 

HUlLD 

BUILD 

BUILD 

FiUlLD 

BUXLd 

BUILD 

RUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

RUILD 

BUILD 

BUILD 

GUILD 

BUILD 

BUILD 

BUILD 

BUILD 

GUILD 

BUILD 

FiUlLD 

RJILD 

BUILD 

BUILD 

BUILD- 

builI„ 

build 

BUILD 

BUILD 


- 60 - 



non non 


40 

30 


105 


CALL GPENM<FITRA2»3Ll-0> 
CALL OPENM (FITKA3.3LI-G) 
CALL OPENM < F I T R A 4 , 3LI - 0 > 
DO 3G 1=1 ,35 
I TEMP ( I > = 0 


I COOL = 0 

IF ( IMT IAL.EQ.0 > ICODE = ICUT 
READ (1,105) IFORM * KARO 
FORMAT 1 12 *7A10 » A8 ) 

IF ( EOF < 1 ) .ImE. 0 ) GO TO 99 
I F ( I FORM . EG . 0 ) GO TO 1 0 0 0 
IF< IFURM.L0.99) GO TO 99 

IF < IF0KM.E0.96) GO TO 90 7 

GO TC(T,2,3,4,5,6,7,8,9,10,ll,12,l3,l4,15) ,IF0RH 


BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

build 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 


C 

C SAf J 
1000 


c 

c 


PLE DIRECTORY CARD 

DECODE (80,115, KARL,) (ITEMP(I) ,1 = 1,12) , *TEMP 11 3 ) , < I TEPP ( I ) 

115 FORMAT ( 14,11,13,11 ,12,14,312, 14, 13, I5,F4.1, 14, 9A4,A1) 

GU TO 3b 

DELETE A RECORD WITH kFY AND FILE NUMBER 
FFKKRKF 

98 DECODE (6, 190,KARD) ITEMP ( 1 > ♦ ITEMP ( 2 ) 

198 FORMAT (14, ID 
KLE = I TEMF 1 ( 1 ) 

icour=o 

GO T (< ( 801 , b02 , 803 , 804 ) , ITEMP ( 2 ) 

801 call r LTE ( F itr a d 
GO TO 800 

602 CALL DLTL‘(FITRA2> 

GO TO 608 

803 CALL OLID IFITRA3) 

GO TO 80b 
604 KLF=ITEHP ( 1 ) 

CALL DLTE(FITRA4> 

806 IF ( ICODF.f 0.0) GO TO 40 

PRINT 296, ITE RIP(1 ) , ITFMP(2) 

296 FORMAT t* ERROR ON DELETION - KEY * 110,* FILE *,TiO) 

GO TO 310 


URINE -HORMONES CARD 


BUILD 
BUILD 
*1=14,24) GUILD 
BUILD 
DU I Li; 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
RUILu 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 
BUILD 


1 IEND=8 
K = 2 

DECODE ( 80, lb, KARP) ITEMP < 1 >* < X TEPlP ( I ) ,1=2,8) 
16 FORMAT ( 14, 5F4.1,2F 3.1) 

GO TO 60 

PLASMA HORMONES SHORT TERM CARD 


2 

17 


ItlMU = 10 

K = ? 

DECODE ( 80 , 17 , KAFiD ) ITE'MP< 1 ) * ( XTEMP ( I ) » 1=2 
FORMAT ( I4,2F4.1,F3.1,F4.2,F4.1,F3.1,F4.1, 


, 10 ) 

F5.P,F5.1> 


GO TO 50 


PLASMA HORMONES LONG TERM CARD 
C 

3 IENLi = 5 
K = ll 


BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

FlUlLD 

BUILD 

BUILD 

BUILD 

RUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 
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° ^ ^ non non o n n n n n non non 


D£CorJE( 80 .ie,KAkn) ITEMP< 1 > * C XTEIMP C 1 1 .1=2*5) BUILD 

16 F OkiMAT (I4*F5,1,3F4.1) GUILD 

GO TO 50 BUILD 

BUILD 

URINE CHEMISTRIES CARD BUILD 

BUILD 

4 ILNb=12 BUILD 

K=^ BUILD 

DLCoUE(60il9,KflRD) ITEKP ( 1 ) « C XTEMp ( I ) ♦ I=2» 12 ) BUILD 

19 FORMAT ( 14, 3F4.0,f4.1»fA.0,f3»1*F4.0,f5.1,F4.3»2F4.0> BUILD 

G 0 I C i b 0 QUILU 

BUILD 

BLOOD CHEMISTRIES CARD BUILD 

BUILD 

5 I END- 1 0 BUILD 

K=15 BUILD 

DECODE I 80,20 ,KARD ) I TEMP < 1 ) » ( XTEMP ( I ) ,1=2,10) BUILD 

20 FORMAT ( I4,2F‘+»1»4f3.1,f3.0»F4.0,F3.1 ) BUILD 

GO TO 50 BUILD 

BUILD 

TRACE METALS CARD BUILD 

BUILD 

6 IEIvjD = lb BUILD 

H=2G BUILD 

DECULE (80,21,KAhd) ITetP ( 1 ) • ( XTEMP ( I ) • 1=2 , 16 ) BUILD 

21 FURlTAT(Itft2F4,2,F4*3,F4,?tF4,4,F4«3,F4*2,F4,3,Ft4«i|,F4,3i EUILD 

. F4.4,F4.3,F4.4,F6.4,F5.4) BUILD 

GO TO 60 BUILD 

BUILD 

1 7K bTu STEROIDS CARu BUILd 

BUILD 

7 1END=10 BUILD 

k=35 BUILD 

DELODE(80.22,KARD) ITe MP « 1 ) * ( XTEMp ( 1 ) » I = 2 , 1 0 ) BUILq 

22 FORMAT ( I4,8F5.3»F4,2) BUILD 

GO TO 60 BUILD 

BUILD 

TOTAL AMINO ACIDS BASIC CarD BUIlD 

BUILD 

fl IEND=5 BUILD 

K=44 BUILD 

DECO DE(80,23, KARO) ItFMP ( 1 ) t ( XTEMP ( I) , I =2 , 5 ) BlJlLD 

23 FORMAT ( 14 , 4F5 • 2 ) BUILD 

GO TO 60 BUILD 

BUILD 

TOTAL AMINO ACIDs ACID AND NEUTRAL CARD BUlLO 

BUILD 

9 IENQ=16 BUILD 

K=48 BUILD 

DECODE (80, 24, KARD) ITEMP f 1 ) ♦ ( XTEMP ( I ) , 1=2 , lb ) BUILD 

24 FOKMAT( l4,F4.2,4F5.2,F4»2,F6.2,3F5.2,F4.2,2F5.2, 2F4.2) BUILD 

GO TO 60 BUILD 

BUILD 

FREE AMINO ACIDS BASIC CARD BUILD 

BUILD 

10 IEND=15 BUILD 

K=63 BUILD 

DECODE ( 80 » 25 » HARD ) ITFMP ( 1 ) * (XTEMP ( I ) , 1=2 , 15 ) BUILD 

25 FGRMATT I4,F5.2,2f4.2,f6.2, 2f5 . 2 , 3F6 . 2 , F4 . 2 , F& . 2 , F 7 . 2 , 2F^ . 2 ) BUILD 

GO TO 60 . BUILD 
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build 

FREE AMINO ACIDS ACIO AND NEUTRAL CARD 1 BUILD 

BUILD 

11 IEND=16 BUILD 

K = 77 6'JILD 

DECODF ( 80 . 26 1 KARD ) I TEMP < 1 ). « ( XTEMp ( I ) , I = 2 ♦ 16 ) ' BUILD 

’26 FORMAT ( 14 . 2F5 . 2 ♦ F6 . 2 , F5 . 2 , F'9 . 2 , 4F 5 . 2 , F6 . 2 ♦ 3F5 . 2 , 2F4 * 2 ) BUILD 

GO TO 6(J BUILD 

BUILD 

FREE AMINO ACID'S ACID AND NEUTRAL CARD 2 BUILD 

BUILD 

12 I L fv U - lb BUILD 

K=92 BUILD 

DECODE ( 60 « 27 » KARD ) ITFMP ( 1 ) t < XTEMP ( I ) ,1=2,15) BUILD 

27 FORMAT (I4,F6.2»13F5«2) BUILD 

GO TO 60 , BUILD 

BUILD 

DAILY PARAMETERS CARD BUILD 

BUILD 

13 lEfvu = 20 BUILD 

DECODE (60. 26, KARD) ITFMP ( 1 ) * I TEMP < 2 ) , ( X TEMP ( I ) , 1 = 3 , 6 ) , BUILD 

(ITEMP(I) ,1=9.20) BUILD 

26 FGRhAT(Il,I3,3F5.£,3F4.0,llA4,A3) BUILD 

GO 10 70 BUILD 

BUILD 

UPDATE CARD BUILD 

BUILD 

14 DECODE <'80, 29, KARD) (I (ID ATE ( I ), 1 = 1,3) , XUDATE , I ST Y BUILD 

29 FORMAT ( 14, 12,12, F15«7,Il) BUILD 

GO TO 60 BUILD 

BUILD 

DIET PARAMETER CARDS BUILD 

BUILD 

15 I END =' 11 BUILD 

K = 116 BUILD 

DECODE (60, 215. HARD) ifEMP ( 1 ) , ( XTEMP ( I ) ♦ 1 = 3 , 11 ) , XTEMP ( 2 > BUILD 

215 FORMAT ( 14 ,F4. 0 ,F4.1,6F4. 0 ,F5.2 ,F4 .0 ) BUILD 

GO TO 60 ' BUILD 

BUILD 

PROCESS SAMPLE' DIRECTORY cAR'DS BUILD 

BUILD 

35 KEY { 2 ) = I TEMP ( 1 ) BUILD 

ITEMP ( 25 ) =1RU BUILD 

IF C ITEMP ( 4 ) « GT , 4 , AND . i TEMP.( 4 ) .LI . 6 . OR . ITEMP < 4 > ,E0.9) ITEMP ( 25 ) =1RUBUIL0 

C CALL RANDOM ( 1 * SR Ala, Ip( iF » 35 ♦ KE Y » 37S , 37S t ICOOE.LOC) BUILD 

IF ( I CODE « NE • 0 ) 60 TO 37 BUILO 

CALL GET (FITRA1 ) BUILD 

IF ( 1CODE.NE. 0 ) GO TO 37 BUILD 

PRINT 34 , KEY ( 2 ) BUILD 

34 FORMAT (SATTEMPT TC ADD EXISTING SAMPLE NO. TO SAMPLE DIR, S, 14) BUILD 

GO' TO 310 BUILD 

C STOP' I BUILD 

37 IF< ICOOE.EG.ICDT) GO TO 36 , R BUILD 

36 PRINT 39 , 1 CODE ,KEY ( 2 ) ORIGINAL BUILD 

39 FORMAT ( SRA1 ERRORS , 06 , 5X . 14 ) OF POOR QUALUXv BUILD 

GO TO 310 BUILD 

C STOP 2 RUILO 

38 CONTINUE BUILD 

C 36 CALL RAND 0 M( 2 ,SRAia, ITEMP, 35, KEY, 36S,36S,IC0DE, LOO BUILD 

DO 53 1=1,35 BUILD 
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no n o noon 


IbUF(T) = ITEfPU) RUILU 

33 CONTINUE BUILD 

IF < ICODE. EG. 0) GO TO 1 033 RUILU 

I CODE = 0 BUILD 

CALL PUT ( FITRA1 ) eUlLO 

GO TC 1034- BUILD 

1033 CALL REPLC (FIYRA1 ) BUILD 

1034 CONTINUE BUILD 

IF ( I CODE *iuL • 0 ) GO TO 36 BUILD 

GU TO 40 BUILD 

BUILD 

PROCESS BLOOD LATA CARDS BUILD 

BUILD 

50 KEY ( 2 ) = ITEhP.( 1 ) . BUILD 

CALL RAI\|UGP( 1 1 fthASin » IF-L ♦ 32 » KtY • 53S » 53S « ICoDE, LOG ) RUILU 

IF ( RODE.iME .0) GO TO 53 BUILD 

CALL GET t FI TRA3 ) BUlLi; 

IF ( lOOUE *NE ♦ 0 ) GO TO 53 BUILD 

51 DO 52 J=2»lE|siD FiUILu 

lidLtK ) = II E MP ( J ) BUILD 

52 K=K+1 BUILD 

CALL RANDOM ( 2 « 3R A33 1 IRL i 32«KE Y * 55S » 55S , ICODE , 1LOC ) BUILD 

IF ( IC ODE . EG • 0 ) GO TO 1053 BUILD 

ICCDE = 0 BUILD 

CALL BUT(FITRA3> PUILD 

GU TG 1054 .BUILD 

1053 CALL REPLC1FITRA3) BUILD 

1054 CONTINUE GUILD 

IF ( lCODE.NE.O ) GO TO 55 f^UlLo 

GO TO 40 BUILD 

53 lF(lCODE.Et.ICDT) GO TO 57 BUILD 

55 PK 1 i\iT 54, IC0DE«KEY (2) ftUILD 

54 FOR HAT OR A 3 ERRORS; . Ofl , 5 X , 14 ) BU iLy 

GO TO 310 BUILD 

STOP 3 BUILD 

57 IBL(1 )=ITEKP(1) BUILD 

DO 58 1=2*32 BUILD 

58 IDL { I ) =0 BUILD 

GO TO 51 BUILD 

BUILD 

PROCESS URlpjL DATA CARDS BUILD 

C BUILD 

60 KEY { 2 ) = I T LMP ( 1 ) BUILD 

C CALL RANU0M(l,oRA2S),IpR«125*KEY,63S,63S,lC0UE,L0(: ) BUILD 

IF. UCOOE.imE.O) GO TO 63 BUILD 

CALL GET (FI TRA2 ) BUILD 

IK ICOOE.lviE.O ) GO TO 63 BUILD 

61 DO 62 J=2 , I END BUILD 

IUMK-) = I1LMP( J) BUILD 

62 K=K+1 BUILD 

C CALL RAND0r , H2,a'RA2S, ItlR ,125,KEY*G5S,65S, ICODE,LOC > BUILD 

IF(ICODE.EG.O) GO TO 1C&3 BUILD 

ICODE = 0 BUILD 

CALL PUT { F I TRAP ) BUILD 

GO TO 1064 BUILD 

1063 CALL REPLC (FITRA2 ) BUILD 

1064 Cui-iT 1 NUE BUILD 

IF ( lCODE.NE.O) GO TO 65 BUILD 

GO TO 40 BUILD 

63 IF< ICODE. EO. ICDT > Go Tr 67 BUILD 
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c 


c 

c 

c 


c 


c 


65 PhlMT 64 , I CODE , KEY ( 2 ) 

64 FORMAT (alRA2 ERRORS;, 08, c iX » 14 > 
GO TG 310 
STOP 4 

67 iuFm=mnPii) 

DU 66 1=2,125 

66 IL'K(1)=0 
GO TO to 1 


PROCESS DAILY PARAMETERS 


70 

71 


75 


77 
7 3 
7u 


DtC'uC E l 4 * 71 , K AR U ) K Y E ( 3 ) 


FORMAT ( 14 ) 

CALL R A HU OK ( 1 , 5K A 4 5) , I PUF » 30 t ft YE * 77S , 77S » I CODE ♦ LuC ) 


IF ( If ODE . Pit * 0 ) 60 TO 77 
CALL 0ET<FITKA4) 

IF ( ICOUE.Nf-.nj GO TO 77 

PRINT 75, RYE (2) ,KYE<3> . 

PuRPiAT ( 1H1 ♦ oiATTEMF'T TO AID EXISTING DAY TC DAILY PILED, 14, 5X , 1 4 J 

b G T U 3 1 U 


STOP 15 

IF < 1 1 ODE » EG • I COT J GO TO 76 
PK1DT 7 4 , I C 0 D t » K Y E (2) ,pYt (3) 

POKr.AT ( Thl ,o)RA 4 ERROR* , 06 , bX , 14, 5X i 14 ) 


GU TO 310 
C SUP 5 

76 CUNT TRUE 

C 76 CALL RAiMDOPH 2 « o<RA4D, ITP'MP, 30 ,KYE, 73to« 73S, ICuUE , L.CL » 
DU 79 1=1,30 
I BUFFI I ) = ITLfip < 1 ) 

79 CONTINUE 

IF l ICOUE.EG .0 ) GO TO 1 073 

I CODE = 0 

CALC PUUFITRA4) 

GO TC 1074 

1073 CALL REPLC (FITRA4 ) 

1074 CUMTIMUE 

IF ( I CODE • i\lF » 0 ) C-D TO 73 


GO TO 40 

PROCESS UPDATE CARDS 


ORIGINAL PAGE IS 
OF POOR QUALITY 


80 IF 1 1 U D A T E ( 2 ) • E Q . 0 ) GO TO 20U 
IF i IUDATE(2 ) .EG. 13 ) Gf TO 220 
DO 8l 1=1,136 

IF ( IfJDX4 ( 1) .EG. IUDATE ( 2 ) • AND. 1N0X5 (I > .P:Q. 1UDATEI 3>) GO TO 83 
83 COLT 1MUE 

PRIVET 82, IFORM, ( IUUATE ( I) «I = 1»3> i XUDATE 

82 FORMAT ( Si RO UPDATE MATCH EOHM AND F IELDD » UX , 1 2 , bX , 14 , 2 ( 5X , 1 2 ) ♦ 
. 5X , F lb . 7 ) 

GO TO 310 
STOP* fa 

83 I H I T = I 

KEY ( 2 ) = 1 ULlATE ( 1 ) 

IwRU=Ii\iOX3( IiHT ) 

IF t INOXll 1 Pi I T ) .EQ.1RR) GO TO 08 

CALL RANDOM < 1 ♦ otR A?3 , I HP » l?b ♦ KEY , 84S , 64S , I CODE, LOC ) 

IF ( iCODE.i'iE • 0 ) GO TO 64 
CALL GET ( FITRA2 ) 

IF < 1COOE.NL. 0) GO TO 6« 


BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

MUILii 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 
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BUILD 

BUILD 

BUILD 

BUILD 
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BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILU 

BUILD 

BUILD 

build 

BUILD 

BUILD 

BUILD 
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IUK(IWRD)=IU0ATE(4> 

C CALL RA(\iD0M(2*SRA2ol,IuP»125»KEY»e5S,85S»IC0UE,L0C) 

IF ( I CODE . EG • Q ) GO TO 1 f>83 

1 CODE = 0 

CALL PUT (FITRA2) 

GO TO 106** 

1083 CAl L REPLC ( FlTF A2 ) 

10 84 CONTINUE 

I F ( ICODE . NE • 0 ) GO TO 65 
GO TO 40 

84 IF ( ICODE. EQ. ICDT ) GO To 87 

85 PRINT 86 » ICODE , KEY < 2 ) 

06 FORMAT <a)KA2 ERROR ON 1 ;PDA TEi , 08 » 5X , 1 4 ) 

GO TC 310 
C STOP 7 

86 CONTINUE 

C 80 Call RANDOM 1 ,SkA33t IRL » 3? , KE Y 1 92S » 92S , ICODE, LOL ) 
IFdCODE.ivlE.O) GO To 92 
CALL GET < FITr A3 ) 

IF ( ICODE. i\if. . 0 ) CO TO g? 

IDL ( 1WRD)=IUDATE(4) 

C CALL RANDORilPtSKASa.lRi ,32, KEY»93S,93S, ICODE, LOC) 

IF ( iCUUE.EG.O) GO TO 1093 

ICODE = 0 

CALL PUT ( F I TRA 3 ) 

GO TO 1094 

1093 CALL REPLC<FITRA3) 

1094 CONTINUE 

IF( ICODE. IME.O) GO TO P3 
GO TO 40 

92 IF < ICODE. EQ. ICDT) GO T o 67 

93 PRINT 94, ICDDE.KEy ( 2 ) 

94 FukpiAT ( ciR A3 ERROR ON UPDATES) , q 8 , bX , 1 4 ) 

GO TO 310 

C ST OP 8 

87 PRINT 95tlC0riE,KEY{2) .XUDATE 

95 FORpiAT ( 3IRA2 OR RA3 SAMPLE NUMBER MISSING ON UPDATES', 

. 08tSX, I4 i3X,F15.7> 

GO TO 310 
C STOP 9 

200 KLT ( 2 ) = IuDAT E ( 1 ) 

IHIT = IODATe 1 3 ) - 1 

C CALL RAND0M(l,SmAia,lTFMP,35,KEY,216S,2l6S,lC0DL,L0C> 

IF( ICODE. NE.O) GO TO 2 i6 
CALL GET(FITRAI) 

IP(ICOOE.NE.O) GO TO ?j6 
IBUF(IHIT) = XUDaTE 

IF I IHI T . EQ ♦ 13 ) IRUF(IhTT) = 1UDATE(4) 

IF ( IHI T .EQ. 13) iTEMp(IHIT) = 10DATE(4) 

C CALL RANUON(2,5RAia,lTrMP,55,KEYi217S*217SilCODE,LOC) 

IF ( ICODE.EQ.O) Go TO 1?13 
ICODE = 0 
CALL PUT(FITRAI) 

GO TO 1214 

1213 CALL REPlC < F ITRA1 ) 

1214 CONTINUE 

IF < ICODE. imE .0 ) GO TO 23 7 
GO TO 40 

216 IF ( ICODE . EQ • ICDT ) GO TO 230 

217 PRINT 218, ICODE, KE Y(2) 
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GUILD 

BUILD 

BUlLli 

BUILD 

DU I LI i 

HUILI: 

RUIir 

BUlLi. 

BUILO 

BUILO 

GUILD 

BUI LI- 

BUILD 

BUILD 

BUILD 

GUILD 

BUILD 

BUILD 

BUILD 

BUILD 

BUILU 

BUILD 
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BUILD 

BUILD 
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BUILD 

BUILD 
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GUILD 
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GUILD 

BUILD 
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GUILD 

BUILD 

BUILD 

BUILD 
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BUILD 

BUILD 

BUILD 

BUILD 
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BUILD 

BUILD 

BUILD 

BUILO 

BUILD 

BUILD 

BUILD 
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218 FOFMAT ( 3RA1 ERROR ON UPDATES ♦ 08 * 5X » 14 ) 

60 TO 310 
C STOP 12 

220 KYE <3)"= IUDATEI 1) + ioOn * ISTY 
1HIT = IUDATE (3 ) - 1 

C CALL RANDOM 1 « 3RA43VITEMP, 30 ♦ KYE t 221S ♦ 22 IS » I CODE « LOC ) 

I F C ICODE.NE.O) GO TO 22l 
CALL GET ( FITRA4 ) 

IF ( ICODE.NE.O) GO TO 221 
16UFF ( I HIT ) = IUDATE { 4 ) 

C CALL RANDOM* 2 » 3RA43* ITEMP»30«KYE » 222S« 222St ICODE, LOC ) 

IF < 1 CODE • EG) « 0 ) GO TO 1223 

ICODE =0 

CALL PUT (FITRA4) 

GO TO 1224 

1223 C ALL F'EPLC ( FI TP A 4 ) 

1224 CONTINUE 

IF( ICODE.NE.O) GO TO" 222 
GO TO 40 

221 IF ( ICODE. EQ.ICDT) GO TO 240 

222 PRINT 223 t ICODE , KYE ( 2 ) ,KYE(3) 

223 FORMAT t iHl*3RA4 ERROR ON UPDATES » 08 ,5X 1 14 « 5X . 14 ) 

GO TO 310 

C STOP 13 

240 PRINT 2 . 41 » ICODE.KYE(2) fKYE(3) .XUDATE 

241 FORMAT ( 3K A4 DAy AND STllDY MISSING ON UPDATES, 

. 08»5X,l4«5XtI4,5X«Fl5.7) 

bO TO 310 
C STOP 14 

• 230 PRINT 231, ICODE .KEY ( 2) , XU DATE 
231 FORMAT ( SR Al SAMPLE NUMBER MISSING ON UPDATES , 08 , ?X , 14 * SX « F15 .7 ) 
GO TO 310 

STOP 16 

CLOSE FILES AND SAVE 
99 CONTINUE 

99 CALL RANDOM 3*5>RAiaj 
CALL R ANDOM ( 3 1 3RA23 ) 

CALL R A N D 0 M ( 3 , 3 R A 33 ) 

CALL RAND0M(3t3RA43) 

CALL CLOSEM IFITRAI > 

CALL CLOSEM ( FI TRA2) 

CALL CLOSEM ( FITRA3 ) 

CALL CLOSEM* FITKA4 ) 

PRINT '300 

300 FORMAT ( 17H0UPDATE COMPLETE.) 

STOP 10 

100 PRINT 101, ICODE, JCODF 

101 FORMAT ( 3 OPEN OR UPDATE BEGIN ERRORS , 5X » 06 » 2X » 06 ) 

STOP 11 ' s 

310 PRINT 400,lF0RM,RARD 
400 FORMAT * I4»19A4,A2) 

GO TO 40 
END 

' SUBROUTINE ERRORl 

COMMON FITRAK35) ,FI TRA2<35) «FITRA3(35) iFITRA4(35) 

COMMON /SISBuF/ IBUF ( 35 ) , IUR ( 125 ) , IQL ( 35 ) , IBUFF ( 30 ) , KEE t KEF , 

+ INITIAL , ICODE 

ICODE = IFETCH(FITRA1,3LIRS> 
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RUILD 
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RUILD 
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BUILD 

R.UILD 
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RUILD 

BUILD 

BUILD 

BUILD 
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BUILD 
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BUILD 
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build 

BUILD 

BUILD 
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ERRORl 

ERRORl 

ERRORl 

ERRORl 

ERRORl 
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CALL STOREF ( FITRA1 , 3LIRS , 0 ) 

IF( ICODE. EG. 0. OR. ICODF.EQ. 4458) RETURN 
PH I uT 100, ICODE 
100 FORMAT ( * RA1 ERROR*, ClO) 

RETURN 

END 

SUBKCUT livE ERR0R2 

COMMON FITRAK35) ,FITRA2(35) »FITRA3(35) * F ITKA4 ( 35 ) 

COMMON /SISHIIF/ IE UF(35) «1UR(125) , IBL < 35 > , I bUFF ( 30 > iKEEtKEF* 
+ INITIAL , ICODE 

I LODE = lFLTCh<FlTRA2,3LlRS) 

CALL STOREF < FI TRA2,3l IT'S, 0 ) 

IF I ICODE.EU. O.Ok. 1C0DE.E0.4458) RE1UKN 
PKImT 100, ICODE 
10 0 F 0 R n A T ( * H A 2 E K R 0 R * * 0 1 0 ) 

RETURN 

End 

SUBROUTINE ERRQK3 

COMMON FITRAK35) »FITRA2<35) «FITRA3(35) iFITRA4(3S) 

COMMON /SISRUF/ ILUF { 35 ) ♦ lUR C 125 ) , IBL ( 35 ) , I BUFF { 30 ) *KLC , KEF, 
+ INITIAL , ICODE 

ICODE = IFETCH ( F ITRA3 , 3LIRS ) 

CALL STOKEF CFITRA3 ,3LIRS ,0 > 

IF( U ODE. LG. 0. OK. I C OOF. Eq. 4 458) RETURN 
PKInT ioo,icoue 

10( ! FORMAT (* RA3 LFRLR*,OlO) 

RL1 JRM 
L i\i D 

B'UBkcUTINE ERR 0K4 

common F ITR A1 ( 55) , F ITRA2 ( 35 ) , FITRA3 < 35 > ,FITRA4 ( 35 ) 

COMMON /SISBUF/ IEUF ( 35 ) . I UR ( 125 ) , IBLC35) , IBUFF(3u ) , KEE« KEFi 

+ initial , icode 

lCCDL = IFETChtFllRAA, 3LIRS) 

CALL. S7 OREF ( Fl TR.A4 , 3 i_TRS , 0 ) 

IF ( ircDE.EQ.0.OR.ICoOE.EQ. l +4 5B) RETURN 
PH I|\jT 10 0, ICODE 
100 F OKhAT ( * RAm- ERROR*, OlO) 

return 

ENL) 


EHRORl 

EHH0R1 

ERROR 1 

ERRORli 

ERROR 1 

ERROHl 

ERR0R2 

LRROr<2 

ERR0R2 

ERR OR 2 

ERK 0 R 2 

ERRORS 

ERRORS. 

LRR0R2 

ERROk2 

ERROR 2 

E R R 0 R 2 

ERROR 3 

ERROR3 

ERRORS 

ERR0R3 

ERR0R3 

ERR OK 3 

ERR OK 3 

ERR0R3 

t RR0R3 

ERR0R3 

ERROR3 

ERROR *+ 

ERROR 4 

ERR OR 4 

ERROR4 

ERROR4 

ERR0R4 

ERROR 4 

ERROR4 

ERROR 4 

ERR0R4 

ERROR4 
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D.2 Program TYPLOK is used to determine the 
content and integrity of the data files 
See Sections 3 and 4 
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PROGRAM TYPELOKF INPUT, OUTPUT) ' 

EXTERNAL ERROR 

COMMON FITRAK35) ,FITRA2F35) *FITRA3(35) , FITRA4 ( 55 ) ,IERR»IFILE 
COMMON UTYPE(125,5,5> , pTYPE ( 2b , 4 , 5 ) 

COMMON MAN (3, 125) 

INTEGER UTYPE.BTYPE.TYPE: 

DIMENSION IBUF F 35 ) , XBUF ( 35 ) . IBUF2 (125 ) , XRUF2 ( 125 ) 

DIMENSION IBUF 3(35) ,XRUF3(35) 

EQUIVALENCE ( I BUF 3 ( 1 ) , X BUF3 < 1 ) ) 

EQUIVALENCE ( IBUF FI). XBUF ( 1) > , ( I BUF 2 ( 1 ) , XBUF2 ( 1 ) ) 

CALL FILLISFFITRA1 , 3Ll. FN , 3LR AX , 2LK A . KE Y , 2LKL , 10 , ?LKT , 1LI ♦ 2LRB , 5 
+ , 3LMRL , 350 ♦ 3L MNR , 350.3LWSA, IBUF) 

CALL STOREFFFITKA1.3LERL.O) 

CALL STOREFtFITRAl .2LEX* ERROR) 

CALl 0PENM(FlTRAl,3LI-0) 

CALL rewnoffitrai ) 

CALL FILEiS(FlTKA2t 3LI F N , 3LRA2 , 2L.KA , KE Y , 2LKL , 1 0 , 2LKT , 1LI .2LRB.5 
+ , 3LMRL ♦ 1250 * 31 MNR , 1250 , 3LWSA » lEUF'2 > 

CALL STOKEF < F I TRA2 ♦ 3LFRL . 0 ) 

CALL STOREF F FI1 R A2 ,2Lf X , ERROR) . 

CALL OPENM ( FIT RA2* 5L INPUT ) 

CALL F ILElS(FlTRA3»3Ll FN«3LRA3,2LKA*KEYt2LKL,lO,2LKT*lLIt2LRB»5 
+ , 3LMRL , 350.3L.MNRt 350.3LWSA. IBUF 3 ) 

CALL STOREF(FITRA3,3LFRL.O) 

CALL STOREF IF1TRA3.2LEX. ERROR) 

CALL OPENMFFH RA3.5LIi\iPUT > 

DO 11 1=1*3 
00 ll J=1 . 125 
11 MANFI,J>=0 
00 4 M=1.5 
DU 5 J=1 . 125 
DO 5 1=1.5 

5 UTYHf ( J. I , M ) = 0 
DU o J=1 . 25 

DU 6 1=1,4 

6 BTYPEF J, I*H)=0 
4 CONTINUE 

KSAV=0 
ISTART=0 
9 ILKR=0 
I F I L E = 1 

CALL GETNLFITRAl ) 

IF ( IFETCHtF ITRA1.2LFP) .EQ.lOub) GO To l *L 
IF ( IERR.NL.O) STOP 1 
IF(kLY.E&.IBUF< 1) ) GO TO 10 
PRINT bOl .KEY, IBUF ( 1 ) 

601 FORMATF* MISMATCH KEY *.020.1X,020) 

GO TO 9 

10 IF ( ISTART.I'E.O) GC TO ?0 
ISTART=1 
GO TO 21 

20 IFFKSAV +1.EQ.KEY) Go TO 22 

21 PRINT 602»KSAV,KSAV,KeY,KEY 

602 FORMAT ( * KEY SEQUENCE - PREVIOUS *.05.15,* CURRENT *.05,15) 

22 KSAV=KEY 

C FIND WHICH RECORD AMD FILE To READ 

TYPE=IBUF(5> 

IF C CIBUF(5) .GE.1.AND.IBUFL5) .LE.4) .OR. IUUT (5). EG). 6) GO TO 25 
IFF ( IEUF(S) ,GE,5.AND. IF.UF (5) .LE.7) .OR.IbUF (5) .EQ.9) GO TO 35 
PRINT 603 
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603 FuRNAT (* INCORRECT TYPE - ASSUME URINE! RA2 )* ) 

PRINT fa09*KEY* < IBUF(I) « 1 = 1*5) 

609 FORMAT < 1H+ ♦ T40 * *KE Y =* , 05 * * SAMPLES* « 15 * * STUDY=*.I2** DATE- 
1MAN=*,I2.* TYPES*",' 12) 

25 CONTINUE 
MFLAGsO 
IEKRsO 

IFILE=2 .. .. 

CALL GET (FITRA2 ) 

I F ( IERR.NE.O ) GO TO 7 

IF(TYFE.LT.1.0R.TYPE.GT.9IG0 TO 26 
IF ( TYPE* E 0*6) TYPE=5 
M=1BUF ( ?. ) 

IF ( PI • GE * 1 * AND • M « L t • 5 ) pO TO 12 
Phi NT 703 * ( IBUF ( I ) « 1 = 1*5) 

703 FORMAT <* INCORRECT STuf Y * » 5l 1 0 ) 

GO TO 26 
12 CONTINUE 
C PR IMF. CREW TEST 

IF ( 1FUF(4) .GT.3) GO TO 26 
UC 3 I =2 * 125 
C USE ABLE DATA TEST 

IF (XpUF? ( I ) *EQ* 0 ) GO TO 3 

IF (N. EQ.3) MAN ( IBUF( 4 ) * I )=MAN( 1BUF (4 ) * I ) + l 
IF ( XBUF 2 ( I ) • LT » 0 • • ANO. y BUF 2 < I ) . NE • -2. ) GO TO 3 
UTYPU I * TYPE * M ) =UT YPE ( I * TYPE * PI 1 +1 
3 CONTINUE 
GO TO 26 
7 CONTINUE 

IF ( IERR.EG. 4458 ) GO To 27 
PRINT 604 * IEHR * KEY 

604 FORMAT RA2 ERROR **O?0»* KEY **U20) 

GO TO 26 

27 PRINT 605 

PRINT 609* KEY* (1RUF( I) *1=1*5) • 

MFLA6=1 

605 FORMAT (* MISSING URINF RECORD *> 

26 I E R K = 0 
IF IlE = 3 

CALL GET ( FITR A3 ) 

IF ( lERR.Lw.445B ) GO To 9 ■ 

IF ( ILRR.NE. 0 ) PRINT 606*JL'RK. 

606 FORMAT (* ERROR CM RA3 j \ T ?b **020) 

PRINT G07*FEY*i;3 , JF3(l) , (XUUF3(I)*1=2* 35) 

607 FORMAT (* BLOOD RECORD. TN URINE TYPE * *020 « I 5/4 (4* * 10F 12.3/ ) ) 

IF < MFL AG .EG * 0 ) PR INT f,?0 .KEY « IBUF2 ( 1 ) » < XDUF2 ( I ) « T =? * 125 ) 

620 FORMAT ( * UR INC .RECORD * « 020 * 1 5/ 13 < 4X « 1 OF 12 . 5/ ) ) 

GO TO 9 > .. 

35 ILRR=0 
IF ILE = 3 
mflag=o 

CALL GET ( F 1 TRA3 ) 

IF( IERk.IME.U ) GO TO B 

IF (TYPE. LT.l. OR. TYPE. CT*9) GOT U 36 
TYPt=IBUF ( 5) -4 
IF (TYPE. EO. 5) T Y PE =4 
M=lUbF(2> 

IF(M.GE.l.AND.M.Lt .5) C-0 TO 13 
PRINT 703* ( IBUF U ) * 1 = 1 *5) 

GO TO 36 


\ 
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13 CONTINUE 
C PRIME C K L h. TEST 

IF < 1 PUF (4 > .GT. 3 ) CO To 3 6 
DO 2 1=2,25 

C USfc ABLE DATA TEST 

IF ( X P li F 3 ( I ) « E 0 • U ) GO TO 2 

IMXi :UK3(l).LT.0vtANO.XUWF3II),rtE,-2.| GO TO 2 
bTYl’F < I , TYPE , h ) =RT YPE ( T » TYPE , M ) +1 

2 COM I CUE 
GO TO 36 
6 CONTINUE 

IH IEPK.to.HH5P) CO To 37 
PK 1 sjT 614, JERR»KE Y 

614 FORiiA T ( * HA 3 ERROR *,fi2p,* KfY *,020). 

GO VO 36 

37 PH I r,T 610 , ' 

PHlpT 609, KEY* ( 1BUF t I > , 1 = 1 5 ) 

615 FOhriATU HISSING FLOOf! RECORD *> 

MFL AG=1 

36 I L K i\ = 0 
IF I L E = 2 

CALL GET ( F I T R A 2 ) 

IF (IEPH.E0.445b) Go To 9 
If ( IERR.NE.O) FHII.T 6 1 6 , I E H H 

616 F OF MA T ( * ERROR OF! Ra£ aT 36 *,020 ) 

PKIOT 6i7, KEY, IBUF 2 ( 1 ) , ( Xf <UF 2 4 f )« 1 = 2, 125) 

617 FoFiwAj ( * uRIfiF RECORD IN Bl.OOp TYPE * , C2o , 1 5/13 { 4 x , 1 OF 12 . 3/ ) ) 

IF (fiFLAG.EC.O ) PRINT 62} , K E Y , 1 OUF 3 ( 1 ) , (Xp0F5( I ) ,1=2,35) 

621 FORMAT U BLOOD RECORD * » 020 , 1 5/4 < 4X , 1 OF 1? . 3/ ) ) 

GO TO 9 
4 P CONTINUE 

PRINT 602, KEY, KEY 
CALL KEufoD ( FlTp A2 ) 

41 I E K K = 0 
IF I LI =2 

CALL GE En ( FITH A2 ) 

IF ( IFETCFi ( F ITRA2 ,2LFp) ,EQ. lOOb ) GO To 50 

IEHH=0 

IFIlE=1 

CALL GET < FI fR A 1 ) 

IF < IEKK • E(l» 445h j FR I f\| T 6l6,K^y,KEY 
61E FORMAT ( * MISSING RAl RECORD FROM RA2 *,020,110) 

GO TO 41 

50 CALL FEWND(FlTRA3) 

51 I E R H = 0 

I F I L E = 3 

CALL GETMFITKA3) 

IF < lFETCh(FITPA3,2LFp) .ECNlOOD) Go To 6U 

I L R R = 0 
I F I LE = 1 

CALL GETtFlTRAl ) 

IF( lLRR.L0.‘+45b ) PRINT 619, KE Y, KEY 
619 FORMAT ( * cilSSlNu RA1 Rr.CORO FROM R A3 *,020,110) 

GO TO 51 
60 COM I RUE 

PRINT 601,(1,1=1,5) 

801 FORMAT ( 1H1,T46, *URINE FATA SAMPLE COUN T*/T55 , *STuLy*/T 20 , 92 ( * r * ) / 

15(20X, I2)/5(16X,+TYPE*)/5X,5(2X,20(*-*) )/6X,5<* 1234 

2 b *)/*■ TOST*) 

00 62 1=2,125 
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Ksl+398 

IF(l.EQ.ti) K=5 03 

I F ( I • G T • 6 ♦ A f\i D • I ♦ L T • 1 0 <=> ) K=K-1 

PRINT 70ltK» ( CUtYPEil", • J=l»5) »rt=l»5) 

62 CONTINUE 

701 FORMAT ( US.5(?X,5I4)) ) 

PH 1 NT 610 

610 FORMAT ( * 1 COUNT OF. OPINE SAMPLE DATA POINTS BY FAN AND TEST*) 
PRINT b06«MAN 

600 FORMAT ( 3I5*2X ♦ 315* 2X • 315* 2X t 315* PX * 315 ) 

PRINT 602* ( 1 . 1=1 *5) 

OOP FORMAT (lhl»T44**BL00D DATA Sample COU|\IT*/T53,*ST1;OY*/T17*7b(*-*)/ 
15(16X* l2)/5(l4X,*TYPE+)/5X*5(2X*lb(*-*> >/fcX»5(* 56 7 9 * 

?)/* TEST*) 

DU 61 1=2*25 

K= 1 +296 

IFU.EO.10) tv = 8 P 1 

IF ( 1.GT.10.AND.1.LT ,24) K=K“1 

PRINT 702 »K , ( ( F:T YF E ( 1 * J» F ) *0=1*4) * M=1 * 5 > 

61 CONTINUE 

702 FORMAT ( (15*5(2 X *414) ) ) 

CALL CLOSEM ( F 1 THAI ) 

CALL Cl r OSEF'i ( FI TRAP ) 

CALL CL0SEM(FITKA3) 

END 

subroutine error 

COMMON FITRA1 < 35) *FITRA?< 35) »FITRA3( 35) *F'lfKA4(35) » ^ERH . IFILE 
GO TO (100*200*300*400) IFILE 
100 I ERR = IFETCfKF ITFA1*3LIPS) 

CALL STOKEF ( F ITF A 1 « 3LIKS* 0) 

GO TO 500 

200 I ERR = IFETCFKFIJRA?*?! IPS) 

CALL STOKEF (FITKA2.3L IRS* 0 > 

GO TO 500 

300 ILRR = IFETCFMF 1TRA3.31 IPS ) 

CALL STOREF (FITRA3.3MRS.CI) 

GO TC 500 

400 ILRR = IFETCH(F1TRA4*3L IPS) 

CALL STOREF ( F1TKA4 . 3L f RS . 0 ) 

500 IF ( IERR.EQ.0) RETURN 
PRINT 601* IFILE. IF KR 

601 FORMAT < * RA* * 1 1 * * ERROR** 010) 

RETURN 

END 
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.3 Program RETD for performing a basic 
analysis of the data 
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o o n o n 


PROGRAM RETD(INPUT. OUTPUT) RETD 

C MAIN PROGRAM RETD 

COMMON XDATA(IOO) ,T(200> , IOPtOT* IFFF,KOT«KSKIP,LT*LM,LSTOP REDUCE 

C COMMON /INDEX/INDX(124) »INDX1(124) ,1N0X2(248) » INGX3 < 124 > RETD 

common /HITBLK/LHIT ( lOO > *MDATE( 100 ) , ISAV ( 16 ) ,MTVOL < 100 > REDUCE 

COMMON /HEADER/ LSTUDY ( 1 0 ) , IS , LUATE (150 ) , I D » LMAN < 9 ) . IM ♦ JOB ( 16 ) * RETD 

. LTYPE(20) »ITP*LTEST (125) * I TT * NSMP » NDATA RETD 

C0MM0N/R6/ DATESC(3,5) jlVVI't) , SSMEAN(3), SSIGMA(3), NNN ( 3 ) , SSE ( 3 ) RETD 
COMMON /SISBUF/ IbUF ( 35 ) » IBL ( 125 ) , IUR ( 35 ) ♦ IBUFF ( 30 ) * KEY « KYE * RETD 

+ MFUNC,IFILE. IERR RETb 

COMMON /FF/ FITRA1 (35) ,FITRA2(35) iFITRA3(35) »FITRA4(35) RETD 

C START, LAUNCH, SPLASH DOWN JAN25 

DATA DATESC/160,,20B. ,2.65, ,114.,144.,172.,189.,P09.*26a.* DEC 10 

X 253. ,320. ,404., 29 0 . , 342 . * 354 . / OE'ClG 

C SL4 SPLASH DOWN IS 39 FEB 8 1974 UEC10 

IOPLOT = 0 RETD 

KSKIP =o RETD 

C IFFF IS LOOP CONTROL TO ALLOW OVERLAY k JAN25 

IFFF = -1 RETD 

1 CALL RET RETD 

CALL STAT RETO 

GO TO 1 RETD 

END • rETD 

SUBROUTINE L INE ( X ♦ Y . N , M i L * LL ) LINE 

X IS THE DATE. ( INDEPENDENT VARIABLE ) LINE 

Y IS THE DATA. (DEPENDENT VARIABLE) LINE 

IFLAG = 13 LAST POINT NOT VALID LINE 

JF LAG = 13 LAST POINT VALID LINE 

ISFLAG IS THE NUMBER OF POINTS PLOTED. LINE 

DIMENSION X(l). Y ( 1 ) LINE 

DATA D/ 0.04/ line 

IFLAG =0 LINE 

JFLAG =0 LINE 

ISFLAG = 0 line 

IP =3 LINE 

IF ( N - 1) 9*1*1 LINE 

1 00 6 1=1, N LINE 

II = I *M - M + 1 LINE 

XP = (X(II> - X ( N + M))/X(N + 2*M) LINE 

YP = ( Y ( 1 1 ) - Y ( N + M))/Y(N + 2*M) LINE 

C CHECK TO SEE IF POINT VALUE IS VALID. LINE 

IFIY(II)) 3*13,23 LINE 

3 IY = -Y(II) + 0.5 « LINE 

IF ( I Y - 2 ) 13*14,13 , LINE 

C THIS IS ZERO ON THE GRAPH. LINE 

14 YP = -Y(N+1)/Y(N+2*M) LINE 

GO TO 23 LINE 

C INVALID POINT, LINE 

13 IFLAG = 13 LINE 

GO TO 6 LINE 

C VALID POINT. CHECK FOR CONTINUOUS DATE. LINE 

23 JFLAG =13 ’ LINE 

IF(ISFLAG) 25,25,24 LINE 

24 I F ( X < 1 1 ) - X(II-M) - 1.5) 25,35,35 LINE 

25 IF< IFLAG) 35,26,35 LINE 

C PLOT THIS PEN DOWN. LINE 

26 CALL PLOT(XP,YP,IP) LINE 

ISFLAG = ISFLAG + 1 LINE 

IP = 2 LINE 

GO TO 6 LINE 
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C DISCONTINUOUS GRAPH, PLOT AN X ON EACH END OF LINE. 

35 CALL WHERE ( U , V , F ) 

IFLAG = 0 

KFLAG = jFLAG*ISFL AG 
IF ( KFLAG ) 16,17,16 

16 CALL SYMBOL (U*V»C»LL»0»0,-1) 

ISFLAG a ISFLAG + 1 

17 CALL SYMBOL(XP,YP.D,LL,0.0,-1> 

IP = 2 

ISFLAG = ISFLAG + 1 
6 CONTINUE 

KFLAG = IFLAG* JFLAG 
IF(KFLAG) 9,9,29 
29 CALL WHERE ( U , V , F ) 

CALL SYMBOUU, V,D,LL, 0.0,-l) 

ISFLAG = ISFLAG + 1 
9 RETURN 

END 1 

SUBROUTINE AXIS ( X , Y , RCD , NC , SI ZE , THETA , YMI N , DY , NDEC , NL AB , NT I C ) 
DIMENSION G ( 2 ) « H(ll) 

DATA G/.8, .56/ 

DATA H/. 56, .4, .28, .2,. 14, ,1. .07, .05, .035, .025.. Cl 175/ 

AC = NC 

SIG=SIGN(1.0,AC) 

2 NAC=IA6S(NC) 

TH=THETA*0. 017453294 
IF(NLAB.LE.O) NLAB = 1 
IF(NTIC.LE.O) NT I C = 1 
FNLAB = NLAB 
N = S I ZE*FNL AB + 0.1 
C N = SIZE + 0.50 

CTH = COS (TH) 

STH = SIN (TH) 

CTN = CTH/FNLAB 
STN = STH/FNLAB 
TN = N 
N1 = N + 1 
N2 = N 1/2 
AUY=ABS(DY/FNLAB) 

C AOY=APs(DY) 

stat=ymin 

EXP = 0.0 
IF ( ADY ) 9,18,9 
9 IF ( AOY -100.0 ) 10,1?,12 
12 ADY = AOY / 10.0 

stat=stat/io.o 

EXP = EXP +1.0 
GO TO 9 

14 ADY = AOY * 10.0 
STAT=STAT*10.0 
EXP = EXP - 1,0 
.10 IF ( ADY - 1.00 ) 14, IB, 16 
C 10 IF < ADY -.0.01 ) 14*16,18 

C 18 XA = X - (.20 * SIG - .05) *STH - .0857 * CTH 

18 XA = X - (H( NLAB + 1 ) * SIG - H < NLAB + 5 ) ) *STH - .0857 * CTH 

C YA = Y + (.20 * SIG - .05) * CTH - .0857 * STH 

YA = Y + (H(NLAB+1 ) * SIG - H ( NLAB+5 ) ) * CTH - .0857 * STH 
1 = 0 

25 I = I + l 

C CALL NUMBER ( X A » YA , 0 . 1 , STaT » THET A , 2 ) 
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CALL NUMBER < X A , YA , H ( ML AB + 3 ) , STAT , THET A ,, NDEC ) AXIS 

STAT=STAT+SIGN(AOY»DY) AXIS 

C XA = XA + CTH AXIS 

XA = XA + CTN AXIS 

C YA = YA + STH AXIS 

YA = YA + STN AXIS 

IF < I - N2) 25.31,26 AXIS 

26 IF ( I - Nl) 25.60,60 AXIS 

31 I NC = MAC + 7 Aa IS 

C XC = X + (SlZt / 2.0 -.06 * TMC ) *CTH - (-.07 + SIG *.36)* STH AXIS 

XC = X + (SIZE / 2.0 -HCNLAB+4J * TNC)*CTH AXIS 

1- ( - H ( l\i L A B + 4 ) + SIG *(HlNLAB) + H ( NLAB + 3 > ) ) * STH AXIS 

C YC = Y + (SIZE. / 2.0 -.06 * TNC)*STH + (-.07 + SIG *.3fa)* CTH AXIS 

YC = Y + (SIZE! / 2.0 -h(N(-AB + 4> * TNC)*STh AXIS 

1+ < -H ( NLAB+4 ) + SIG *(H(MLAB) + H (NLAB+3 ) ) ) * CTH AXIS 

C CALL SYMBOL ( XC , YC . 0 . 1 4 , BCD * THE f A , I iAC > AXIS 

CALL SYMBOL ( XC . YC , H ( MLAB+2) , BCD . THETA ,NAC ) AXIS 

XC = XC +((TNC -6.0) * 0.12)* CTH AXIS 

YC = YC + ( ( TNC -6.0) * 0.12)* STH AXIS 

IF (EXP) 35.50,35 AXIS 

C 35 CALL SYMBOL ( XC , YC , 0 . 14 , Si < XlO >0 » THETA , 7 ) AXIS 

C 35 CALL SYMBOL ( XC . YC , M ( NL AB+2 ) , a) ( X10 )3 .THETa. 7) AXIS 

35 CALL SYMBOL ( XC , YC , H ( NL AR+2 ) , 7H ( X 1 0 ), THETA, 7) AXIS 

C XC = XC + .48 * CTH -.07 * STH AXIS 

XC=XC+ ♦ 38*CTH-H ( NLAB+4 )* STH DEC10 

C YC = YC + .48 * STH +.07 * CTH AXIS 

YC=YC+. 36 *S TH+H( NLAB+4 >*CTH DEC 10 

C' 40 CALL NUMBER ( XC ♦ YC , 0 . 1 0 , EXP ♦ THETA % ) AXIS 

4o CALL NUMBER ( XC , YC , H ( NL.AB + 3 ) , EXP , THEJA , -1 > AXIS 

50 GO TO 25 AXIS 

60 FnTIC = NTIC AXIS 

NT = N*NTIC AXIS 

TN = NT AXIS 

CTH = CTN/FNTIC AXIS 

STH = STN/FIMTIC AXIS 

XB = X + TN*CTM AXIS 

Yb = Y + TN*STH AXIS 

XDELT = - H ( 6 - NTIC) * SIG * STH AXIS 

YDELT = H ( 6 - NTIC) * SIG * CTH AXIS 

XA = XB + XDELT + XDELT AXIS 

C XA = XB- 0.1 * SIG * STH AXIS 

YA = YB + YDELT + YDEl.T AXIS 

C YA = YB+ 0.1 * SIC * CTH AXIS 

CALL PLOT ( X A , Y A , 3 ) AXIS 

XA = XA - XDELT AXIS 

YA = YA - YDELT AXIS 

C DO 20 I =1,N AXIS 

DO 20 I =1 , N AXIS 

DO 20 II = 1 » N T I C AXIS 

IF ( II. LT. NTIC) GO TO 45 AXIS 

XX = XDELT AXIS 

YY = YDELT AXIS 

GO TO 46 AXIS 

45 XX = 0. AXIS 

YY = 0. AXIS 

46 CONTINUE AXIS 

CALL PLOT <XB,YB,2> AXIS 

XC = XB - CTH AXIS 

YC = YB - STH AXIS 

CALL PLOT ( XC , YC , 2 > AXIS 
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c 

c 


c 

c 


c 


XA = XA - CTH 
XA = XA - CTH + XX 
YA = YA - STH 
YA a YA - STH + YY 
CALL PLOT (XA»YA»2> 

XA = XA - XX 
YA = YA - YY 
XB = XC 
20 YB = YC 

RETURN i , 

END 

SUBROUTINE SCALE (X,S,N»K) 


AXIS 

AXIS 


Al % 
AXIS 
AXIS 
AXIS 


AXIS 

AXIS 

AXIS 


AXIS 

SCALE 


SCALE 

WHERE- X IS THE NAME OF THE ARRAY OF DATA TO BE SCANNED FOR MAXIMUMSCALE 


AND MINIMUM VALUES. AN ADJUSTED MINIMUM VALUE WILL BE SCALE 

STORED IN X(N*K+1>. AN ADJUSTED DX (M AX , -MIN . ) WILL BE SCALE 

STORED IN X ( N*K+K + 1 1 * SCALE 

S IS THE LENGTH OVER WHICH THIS DATA Ts TO BE PLOTTED. SCALE 

N IS THE NUMBER OF DATA POINTS). IN THE ARRAY X. SCALE 

K IS THE REPEAT CYCLE OF A hIXCp ARRAY. (NORMALLY 1) SCALE 

! SCALE 

DIMENSION X(2) scale 


IT s IS 
NP = N * K 

L = NP ♦ 1 ' 

J = NP +K + 1 
XMAX = X< 1) 

X { L ) = X(l) 

DO 2 1 = 1 1 NP » K 
IF ( X ( I ) ) 2.2.3 

2 CONTINUE 

3 XMAX = X(I) 

X ( L ) s X(I) 

X<L >= 0.0 

DO 10 I s 1*NP«K 
IF ( X ( I ) ) 22.10.23 

22 I TEST = 2.5 • X ( I ) 
IF(ITEST) 10,24,10 

24 X ( L ) =0,0 
IT s O' 

GO TO 10 ' - 

23 IF ( XMAX-X ( I ) ) 5,6.6 

5 XMAX - X C I ) 

6 IF (X(L)-X(I))10,10*7 

7 X ( L ) *• X ( 1 1 
10 CONTINUE 

DX = (XMAX - X ( L > 1 /S 
IF (DX) 31,31,30 
31 X(J) = 1.0 


SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

mi 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

scale 

SCALE 

scale 

scale 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 


X ( L ) = X ( L ) - 0.5 


SCALE 


RETURN 

30 IOX = ALOG10 (DX) 

IXMN = X<L> * 10.0 ** (-TDX) 

IF ( X ( l ) ) 32 » 33 » 34 

32 IXMN = X ( L ) * 10.0 ** (-IDX) - 0,99 
34 X C L I = IXMN 

X ( L ) .= X ( L ) * 10.0 ** IDX 

33 OX = ALOGIO (( XMAX-X ( L H /S ) 


■ORIGINAL PAGE IB 
OF POOR QUALOT 


SCALE 

SCALE 

scale 

scale 



SCALE 


IDX = DX SCALE 

XMAX = IDX . SCALE 
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DX=10. 0** (DX-XMAX ) SCALE 

XMAX =1.0 SCALE 

41 IF ( D X - 1 • 0 ) 40,20,11 SCALE 

40 DX = OX * 10. 0 SCALE 

10X = IDX - I SCALE 

GO TO 41 SCALE 

11 XMAX=2.0 SCALE 

IF ( OX -2 . 0 ) 20,20,12 SCALE 

12 XMAX = 4.0 SCALE 

IF IDX-4.0) 20,20,13 - SCALE 

13 XMAX=5 • 0 SCALE 

IF(OX-S.O) 20,20,14 SCALE 

14 XMAX=8.0 SCALE 

IF (DX-8.0) 20,20,15 SCALE 

15 XMAX=10,0 SCALE 

20 X(J) = XMAX * 10.0.** I DX SCALE 

IF C IT) 49,49,39 SCALE 

39 CONTINUE ' SCALE 

IMAX = XI1AX + 0,00001 SCALE 

IXMIM = X ( L ) * 10,0 ** {-IOX> SCALE 

IMOO = IXMN/IMAX* I MAX SCALE 

X t L ) = IHOD SCALE 

X ( L ) = X ( L ) * 10,0 ** IDX SCALE 

GO TO 59 SCALE 

49 CONTINUE SCALE 

X<L ) = 0.0 SCALE 

59 CONTINUE SCALE 

RETURN SCALE 

END • SCALE 

SUBROUTINE RET RET 

RET 

MSC ENDOCRINE DATA RETREIVAL PROGRAM RET 

FIRST LOOK STATISTICS PROGRAM. RET 

RET 

COMMON XOATA<lCO>rT<2cO>,IOPLOT,IFFFtKOT,KSKIP,LT»LM,LSTOP REDUCE 

COMMON /INDEX/ INDX< 124 ) ,INDX1( 124) , INDX2 C 248 ) , JNDX3 M 24 ) RET 

COMMON /HITBLK/LHIT( 100) ,MDATE( 100) , ISAV/U6) ,MTVOL(10Q) REDUCE 

COMMON /HEADER/ LSTUDY<10),IS,LDATE(150),1D,LMAN(9),IM,JOB(16), RET 

. LTYPE{20) rlTPtLTEST (125) » ITT , NSMP , NDATA RET 

COMMON /SISBUF/ I BUF ( 35 ) , IBL ( 125 ) , IUR ( 35 ) , IBUFF < 30 > » KEY * KYE * RET 

COMMON /SISBUF/ JBUF < 35 ) , I BL { 125 ) , IUR ( 35 ) , IBUFF ( 30 ) , KEY » KYE , RET 

+ MFUNC,IFILE,IERR RET 

COMMON /FF/ FITRAK35) ,FITRA2( 35) ,FITRA3(35) ,FITRA4(35) RET 

DIMENSION IBUF ( 14 ) RET 

EQUIVALENCEt IBUF,T) RET 

EXTERNAL ERROR RET 

RET 

RA1=SAMPLE DIRECTORY *** RA2=UrI|\jE FILE *** RA3=BLOOD FILE RET 

*** RA4=DA IL Y FILE *** RET 

RET 
RET 

place Keyed files in update mode excluding aRAia which is ' ret 

TO BE USED AS A SEQUENTIAL SEARCH FILE RET 

ASSIGNED TO FORTRAN UNIT NO. 1 RET 

RET 

IF(IFFF) 31,201,140 RET 

C 31 CALL RANDOM (4, SR a23, 125, 5,7*100 ,100 ,JCODE,LOC) RET 

31 CONTINUE RET 

CALL FILEIS(FITRA1,3LLFN,3LRA1,2LKA,KEY,2L.KL,10,2LKT,1LI,2LRB,5 RET 
+ , 3LMRL , 350,3LMNR, 350,3LWSA* T) RET 
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CALL STOREF{FITRA1.3LERL*20) 

CALL STOREF (FITRAli2LFX» ERROR) 

CALL OPENM(FITRA1,3LI-0) 

CALL REWNO ( FI TR A1 ) 

CALL FILElS(FITKA2,3LLFN«3LRA2»2LKA«KEY»2U<L t 10i2LKTaLI»2LRB,5 
+ «3LMRL«125o» 3LHNR « 1250 * 3LWSA « T) 

CALL STOREF (FITRA2.3LERL.0) 

CALL ST0REF(FITRA2.2LEX« ERROR) 

CALL OPENM ( F ITRA2 » 5L IMPUT ) 

CALL REWND (FITRA2) ,• 

CALL FILLlS<FlTRA3»3LLFN«3LRAS,2LKA»KEY«2LKL t 10f2LKTtlLl»2LRBt5 
+ ♦ 3LMRL» 350 1 3LMNR * 350.3LWSA. T) 

CALL STOREF (FITRA3* 3LFRL» 0 ) 

CALL STOREF { FI TRA3* 2LEX . ERROR) 

CALL 0PENM(FITRA3»5LIMPUT) 

CALL REWNO ( FITRA3 ) 

CALL FILtIS<FlTRA4t3Ll FN»3LRAH*2LKA.KEY*2LKL«lQ,2EKTtlLl*2LRB,5 
+ » 3LMRL » 300«3LMNR, 300 i 3LW6A»T) 

CALL STOREF<FITRA4,3LERL,0) 

CALL ST0REF(FITRA4»2 Le:Xi ERROR) 

CALL OPENH(FiTRA 4»5LIWPL)T) 

CALL REWNDIFITRA4) 

IFFF =0 ’ 

C 

c initialize counter flags for the first pass of 

C ANY GIVEN RETKE IVAL 
C 

201 ISP LG = 1 
IDFLG = 1 
IMFLG = 1 
ITPFLG = 1 
ITTFLG = 1 
IFFF = 1 

READ ONE DATA CARD 

1 READ 200 . <ISaV(I)»I= 1 «i 6) 

200 F0 RMaT(A 4»1 X,a 4«1X»14 i 5) 

DETERMINE CARD TYPE AND COUNTER s e QUEnCE' 

IF(ISAVd) .EQ.4HJ0B ) GO To 19 
IF< ISAV(l) .EQ.4HSTUD.AMD.ISFLG.EQ.1 ) Go To 5 
IFUSAV(l) .EQ.4hSTUO.AMD.ISFLG.EQ.O) GO TO 45 
IFdSAV(l) .EQ.4HDATE. AND. IDFLG. EQ.l) GO TO 6 
IF(ISAVd) tEQ.4 HDATE.AND. IDFlG. EQ. 0) Go To 46 
IF(ISAVd) .EQ.4 HMAN .AND. ImFLG. EQ. l) GO TO .7 
IFdSAVd) .EQ.4HMAN .AND.IMFLG.EQ. 0 ) GO TO 47 
IFdSAV(l) .E0.4HTYPE. AND. ITPFLG. EQ.l) GO TO 8 
IF( ISAV(I) .EQ.4HTYPE. AND. ITPFLG. EQ.0) GO TO 48 
IFUSAVd) .EQ.4HTEST. AND. ITTFLG. EQ.l) GOTO 9 
IF( ISAV(1 ).Eq. 4HTEST. AND. ITTFLG. EQ.0) GO TO 49 
IFdSAVd) .EQ.4HEND ) GO TO 40 
IF(ISAV(1 ) .EQ.4HE0F ) GO TO 99 

BUILD RETREIVAL CRITERIA ARRAYS 

5 JSTALL=0 
IS = 0 
ISFLG = 0 • 


ret 

ret 

3 l 

RET 

RET 

RET 

ret 

REt 

ret- 

RET 

RET 

RET, 

ret 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 


RET 

•RET 

RET 


RET 

RET 

RET 


RET 

rET 

RET 

RET 

RET 

RET 

ret 

RET 

RET 

RET 

ret 

ret- 

RET 

RET 

RET 

RET 

RET 

RET 

RET 


RET 

RET 


REJ 

■u 


RET 

RET 


RET 

RET 


PO- 
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45 CALL SETCRI (LSTUUY, IS, jSTALL) KLT 

C OUTPUT, <LSTUDY< I ), 1=1, 5> , IS»JSTALL KLT 

GO TC 1 KLT 

6 JDTaLL=0 KLT 

IL = 0 kLT 

I OF LG = 0 RtT 

46 CALL SETCRI <LCATE, ID, JUTALL) RET 

C OUTPUT * ( LDATE < I ) • 1 = 1 « VO ) * ID * JOT ALL F:ET 

GO TO 1 RET 

7 MAN ALL = D RET 

IM = 0 RET 

1MFLC =0 RET 

47 CALL SETCRI ( LMAN , I M , MAHAL L I RET 

C OUTPUT, (LMAN< I ), 1=1,9) , IM,MANALL RET 

GO TO 1 RET 

f! JTPALL=0 RET 

itf> = 0 ret 

itpflg = 0 RET 

48 CALL SE'TCRl (LTYF’fi, ITP, JTPALL) RET 

C OUTPUT, (LTYPE(I), 1=1, JO>»ITP, JTPALL RET 

GO TO 1 RET 

9 JTTALL=0 RET 

ITT = 0 RET 

ittflg = 0 RET 

49 CALL SETCRI (LTEST, ITT, JTTALL) RET 

I T T = 1 rET 

C IF < JTTaLL.EO. 1 ) ITT = l24 , rET 

LSTART = I S AV ( 3 ) RET 

LSTOP = ISAVC4) RET 

IP (ESTOP, LCi.O) LS10P=L START UECIO 

GO TO 1 RET 

19 DO 119 1=1,16 rET 

119 JOB( I ) =ISAV ( 1 ) RET 

I F ( 10 PLOT . EQ.O.ANC.JOR( 3 ) . GE , 1 0 1)0 ) CALI PLOTS ( 14HNASA ENDOCRJNF , RET 
1 14) RET 

IF ( JOB ( 3 ) . GE » 1 0 00 ) IOpL OT - 999 rET 

IF < J0B(2) . Efci . 4HDATE • OR . JOB ( 2 ) . CO . 4BBOTH .OK . JOB ( 2 ) . L Q . 4HVuLU ) GOTOl UECIO 
JOB(2)=4HDATE UECIO 

PRINT 601 DEC 10 

601 FORMAT (* UNKNOWN JOB PARAMETER DATE ASSUMED*) DEC10 

GO TO 1 RET 

RET 

BUILD HIT ARRAY OF SAMPLE NUMBERS RET 

RET 

40 CONTINUE ' rET 

LT = LSTART - 1 ;* ret 

RET 

DO 4321 LT=LSTAKT,LSTnP \ rET 

140 IFIIFFF - 2) 145,240,145 RET 

145 LT = LT + 1 R ET 

RET 

IF ( LT - LSTOP) 150,150,4321 RET 

150 LM) = 0 ret 

IFFF = 2 ORIGINAL PAGE IS ret 

IF(KOT.EQ.O) CALL SSWTCH ( 1 , KK1 ) OF POOR QUALITY RET 

IF(KKT.EQ.l) GO TO 999 rET 

LTEST(l) = LT rET 

C DO 4321 LM=1,3 rE t 

240 LM = LM + 1 rET 

IF ( LM - 3) 250,250,245 RET 
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245 IF FF = 1 
GO TO 140 
250 LMAN<1> = LM 
IH = 1 

C REWIND 1 

CALL REWNO(FITRAI) 

C 

C 

C THE KEYED ( RAl ) SAMPLE DIrFCTORY FILE IS TREATED AS A SEQUENTIAL 
C FILL LURING THE SEARCH FOR SAMPLES WHICH SATISFY 

C THE INPUT CRITERIA 

C 

C 10 BUFFER 1N<1»1> (IBUF(l) ,IRUF<14> ) 

10 CALL GETN ( F ITRA1 ) 

IF< IFETCH(FITRA1,2LFP) .EG.100B) GO TO 23 
2 IF ( JSTALL.EQ.l) GO TO 12 
DO 11 1=1 » IS 

IF(IPUF(2>.EQ.LSTUDY(I) ) GO TO 12 

11 continue 

GO TO 10. 

12 IF( JDTALL.EQ.I.AnD. JoB(2) .EO.4HV0LU) Go To 44 
C 

C CHECK FOR SIMULTANEOUS a! ALLS) AND DATE aSAVEa OPTION 
C 

IF < jUTAlL«FQ.1. AND. ( J0R<2) .DQ.4HDATE.0R. JOB (2) .EQ.4HB0TH) )GO 
DO 13 1=1,10 

IF ( IBUF<3) .EQ.LDATE( I ) > GO To 14 

13 CONTINUE 
GO TO 10 

41 MiDSaV = I BUF ( 3 ) 

GO TO 44 
C 

C CHECK f : 0R DATE SAVE OPTION 
C 

14 IF ( JOB ( 2 ) .EG ,4 HD ATE , Or , JOB ( 2 ) .EG.4HBOTH) MDSA V=Lf)ATE < I > 

44 IF ( MAN ALL » EQ» 1 ) Go TO 10 

DO 15 1=1 .in 

IF<1BUF(4».EQ.LMAN(I)) Go TO 16 

15 CONTINUE 
GO TO 10 

16 IF < JTP ALL . EG . 1 > GO TO 18 
DO 17 1=1, ITP 

IF(IBUF<5).E0.LTYPE(I) ) GO To 18 

17 CONTINUE 
GO TO 10 

C 

C CHECK FOR MASTER SAMPLE NUMBER 
C 

18 IF ( I BUF (14 ) »EQ» 0 ) GO TO 21 
MIH = IH-1 

DO 20 1=1, MIH 

IF(LHIT(I).EQ.IBUF<14) ) GO To 10 

20 CONTINUE 

LHIt< IH)=IBUF(14> 

C PRINT 220, <LHIT(I) ,1=1,10) 

C 220 FORMAT (5X,5HLHlT2,5X,i0ll0) 

GO TO 22 

21 LH I T ( I H ) = I BUF ( 1 ) 

C PRINT 221 » (LHIT (I), 1=1, 10) 

C 221 FORMAT ( 5X « 5HLHIT1 , 5X » 1 0 1 1 0 ) 


RET 

RET 

L' 

RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
R E T. 
RET 
RET 
RET 
RET 
RET 
ret 

RET 
RET 
RET 
RET 
RET 
TO 41RET 
RET 
•RET 
RET 


RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET-' 

RET 

ret 

RET, 

RET 

RET 

RET 

RET 

RET 

RET 

RF-X 

rL 

RET 

RET 

RET 

ret 
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RET 

IF DATE SAVE OPTION WAS SPECIFIED FILL DATE Ah KAY CORRESPONDING RET 

TO SAMPLE NUMBER HIT ARRAY RET 

KLT 

22 IF < JCB<2) .EQ.4HUATE.0p . JOB ( 2 ) .EQ.4HBOTH) MDATE (Ih ) =WDSAV RET 

RET 

IF TOTAL VOLUME SAVE OPTION WAS SPECIFIED FILL VOLUME ARRAY RET 

CORRESPONDING TO SAMPLE NUMBER HIT ARRAY RET 

kET 

IF (JOBE 2) .EQ.4HV0LU.0p . JOB (2) . EU . HhOoTH ) Ml VOL ( Ih ) = I DUF (10) KtT 

I H= I H+l RET 

IF f IH.LE.101) GO TO 10 REDUCE 

23 NSMP = IH - 1 RET 

IF (NSMP.LE.100 ) GO TO 35 REDUCE 

PRINT 30 RET 

30 FORMAT ( llil, 17HH1T FILE OVERFLOW ) RET 

SLOP 30 RET 

RET 

35 CALL RETRVE RET 

PRINT 300 , LSTUDY » l.M AN * JOE ♦ LT YPE ♦ NSHP « NO AT A RET 

300 FORMAT ( 1H0 , 6HLSTUDY , lOIlO ,//,2X , 4HLM AN , 9 1 1 0 , // , UEC10 

. IX. 4HJ0U i A4.5XiA4.5X, 1416, //,6H LTYPE , 20 1 5 , // « RET 

. 1X» 7HNSMP = » I5» lOX »6HNL)ATA = »I5) OECIO 

PRINT 301* ( LDATE (I ) t 1=1 t ID ) RET 

301 FORMAT <6H LDATE /»( lOllO)) RET 

PKI NT 302, (LTEST( I ) * 1 = 3 * ITT) RET 

302 FORMAT ( 6H LTEST « ( 10 1 1 0 > ) RET 

PRINT 306 ♦ ( MTVOL ( I ) * 1 = 1 * liSMP ) RET 

306 F ORMA T ( 1H0 * 5HMT VOL «/»(joriO)> DEC10 

PRINT 303, (MDATEt I ) * 1=1 * NSflP ) RET 

303 FORMATdhO, 5HMDATE , / , ( 1 0 1 1 0 ) ) DEC10 

PRINT 304, (LHIT(I) ,I=l,NSMP) RET 

304 FORMAT (/ ,6H LHIT ,/, (10110)) DEC10 

PRINT 305,(XDATA(I),I=1,NDATA) RET 

305 FORMAT (1HO, 5HXDATA ,/»(qF 15»6)) DEClO 

PRINT 300, LSTUDYtLMAN,JOB,LTYPE,NSMP,NDATA RET 

300 FoKMAT(lHi,feHLSTUDY,lOI10,//t2X,4HLMAN,9I10,//, RET 

. 4HJ0B , A4,5X,A4,5X,14I6,//,5HLTYPE»20I5,//, RET 

. 7HNSMP = , 1 5 » 1 OX » GHINiDA T A = ,15*// ) RET 

PRINT 301, ( LDATE < I > , 1=3 , ID) RET 

301 FORMAT (5HLDATE /» (10110)) RET 

PRINT 302, (LTESTtl ),Irl ,ITT) RET 

302 FORMAT (5HLTEST * C 1 0 1 1 0 ) ) RET. 

PRINT 306, (MTVGL( I ) ,I=1»HSMP) RET 

306 FORMAT < 1H1 ,5HMTV0L ,/, (1.0110) ) RET 

PRINT 303, <MDATE(I >,I=1*NSMP) RET 

303 FORMAT ( 1H1* 5HMDATE ,/, ( 1 0 1 1 0 ) ) RET 

PRINT 304, (LHlTd) *I = l,NSMP) RET 

304 FORMAT (//,5HLHIT ,/,(lOllO)) RET 

PRINT 305, (XDATAd ) , 1 = 1 ,[:DaTA) RET 

305 FORMAT( lhl,5HXDATA,/, (6F15.6) ) RET 

RET 

C ret 

C RET 

return ret 

c CALL ST AT RET 

4321 CONTINUE RET 

IF F F = C RET 

C RET 

C RET 
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REWIND 1 

CALL REWND(FITKA1 ) 

GO TO 201 

8&ft PRINT 8800 

8800 FORMAT < 1 5H FILE. 1 REWOUND) 

RETURN 
99 COlMTir-UE 

CALL CLOSER ( F ITRA1 I 
CALL CLOSED (FITRA2 > 

CALL CLOSER ( FITRA3 ) 

CALL CLOSER ( FITRA4 ) 

IF 1 10FLO I ) 1 99 1 199 1 999 
999 CALL STOPPL.T 
P R I tv. T 900 

90 P FORMAT (19HONORRAL END OF JOB.) 

STOP 2000 
199 STOP 1 
END 

SUBROUTINE SETCRl (LBUFi JnDX»LALL ) 

THIS SUPROUT IDE STORES INFORMATION FROM ONE DATA CARO INTO THE 

corresponding criteria ARRAY 

COMMON /INDEX/ 1NDX ( 124 ) * ImDXI ( 124 ) . IrjDX2( 296 ) » INDX3 ( 124) 

COMMON /)•; I TOLK/LH I T ( 1 0 0 ) tMDATE ( 100 ) .ISAV(lfe) .MTVOL(IOO) 

COMMON /HEADER/ LSTUDy ( 1 0 ) ♦ I S . LD ATE { 150 ) » IDtLMAN < 9d I M » JuB ( lb ) , 
. LT YPE ( ? 0 ) » I Tp ♦ L 1 EsT < 125 ) ♦ I T T » NSMP t NDAT A 

COMMON /S1SBUF/ IfiUF<35) ,IftL(125) ,IUR(3b) ,IBUFF(3U) ,KEY,KYE, 

+ PFUNC. IFILE »1ERR 

COMMON /FF/ FITRA1 ( 35 ) , F I TK A2 ( 35 ) , f ITR A 3 ( 35 ) .FITRA4135) 
DIMENSION LBUF(l) 

IF ( lSAy(2) .EQ.4HALL • OR • I SAV ( 2 ) . EO . 4 FI ) Go To 1 

JN L) X — J |v L) X + 1 
LhUF( JKIDX ) = ISAV(3) 

IFdSAV(fc) .EU.4HEACH) GO TO 3 
IhXTrlSAV C3)+l 

2 IF ( INXT.GT. ISAV < 4 ) ) RfTURN 
J[\]DX = Jr:L)X + 1 

LbL»F< JND> ) = INXT 
INXT=INXT+1 
GO TO 2 

3 DO 5 I =4 .lb 

IF dSAVd ) .EQ.O ) RETURN 
JNDX = JNOX + 1 
LBUF< JND> )=ISAV{ 1 ) 

5 CONTINUE 
RETURN 
1 LALL= 1 

RETURN • 

END 

SUBROUTINE RETRVE 

THIS SUBROUTINE RETREVES THOSE DATA VALUES FROM THE BLOOD OR 

urine files which satisfy the input critfria 
the data VALUES are STORED IN ARRAY XD AT A 

COMMON XDATA (100 ) , T ( 2on ) . IOPLOT i IFFF f KOT.KSKIPtLT iLMiLSTuP 
C COMMON /jNDEX/lNOX (124 ) * INDX1 (124) « INDX2( 246 > , I NT a3(124) 

COMMON/INUEX/INDX (13&) , INDX3 ( 13b ) 


RET 

RET 

RET 


RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET - 

RET 

RET 

RET 

RET 

RET 


RET 

SETCRl 

SETCrI 

SETCRl 

SETCRl 

SETCRl 

reduce 

SETCRl 
sETCRI 
SETCRl 
SE1 I 

se'. _ d 


SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 

SETCRl 


SETCRl 
SETCRl 
RETRVE 
retrvE 
retrve 
retrvE 
E 
E 

REDUCE 

RETRVE 

decio 
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COMMON! /hITBLK/LHIT< 100 ) ,MOAT£ < 100 ) * ISAV < 16 ) ,MTVOLC 100 ) REDUCE 

COMMOM /HEADER/ LSTUOy ( 1 0 ) , IS , LDATE { 150 I , ID , LMAN < 9 ) » IM , JOD ( 16 ) , RETRVE 

. LTYPE ( 20 ) » iTp, LTEST ( 125 ) , ITT, NSMP *NDAT A KETRVE 

COMMON! /KISBUF/ IBUF ( 35 ) t IBL ( 125 ) , IUR ( 35 ) , IBUFF ( 30 ) * KEE , K YE , RETRVE 

+ MFUNC, IFILEiIERH RETRVE 

COMMON /FF/ FITRA1<35>,FITRA2(35),FITRA3(35>,FITRA4{3S) RETRVE 

DIMENSION XTEMP ( 125 ) RETRVE 

INTEGER KEY < 2 ) KETRVE 

EQUIVALENCE ( T , XTEMP ) RETRVE 

EQUIVALENCE ( KEE , KEY ( 2 ) ) RETRVE 

DATA ( Ii\iOX( I ) i 1 = 1, 136 J/40 0 ,40 1 ,402,40 3,404,405, 503* 406* 40 7, 408 *409, DEC10 
. 410, DEC 10 


1 411, 4 12 *413, 41 4, 41 5, 4 16* 417* 4 18, 419, 42 0*42 1,42?, 423, 424 *425 *4 2b* DEC 10 

2 427,420,429,430,431 ,432, 433, 434, 4 35* 436,437, 436, 439, 440, 441 ,442, OECIO 

3 443* 444* 4 45* 446, 447 ,446, 449, 450, 45l, 4 52* 453* 454* 455, 45fa, 4 57, 45ti, uEC 10 

4 459,460,461 ,462,463,464 ,46&, 4 66, 407, 468,469,470, 471,472, 4 73, 474 , DEC 10 

5 475,476,477,478,479,480,461 , 462 » 483 * 464 » 465 , 486 » 487 » 486 , 489 , 49 0 , OEC1 0 

6 491 ,492,493,494,495,496,497 ,498, 499, 50 0,50 1,502* 300, 301, 302, 303, DEC 10 

7 3 04, 305, 306 *30 7, 321,308 ,309 *310,311,312, 313, 314, 315 *316,317,318, DEC 10 


• 319, DEC10 

.0 320,514,515,516,517,518,519,520,521,522,523/ DEC10 

DATA ( I NDX3 ( I ) ,1=1 ,1361/2,3*4 ,5, 6, 7, 8, 9, 10, 11, 1?, 13, 14, 15, 16,17, DEC10 

1 16, 19, 20, 21, 22 *23, 24, 25 ,26, 27, 2 8, 29, 3 0, 3 1,32, 33, 34, 3 5, 36, 37, 38, DEC 10 

2 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59, DEC 10 

3 6 0,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80, DEC 10 

4 81,82,63,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100, OECi 0 

510 1, 1 02, 1 03, 104, 10 5, 2, 3, 4, 5, 6,7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, DEC10 
6 20,21,22,23,116,117,118,119,120,121,122,123,124,125/ DEC10 

DATA lCDT/4456/ rETRVE 


M = 1 

KSAV=0 

IEKR=0 

DO 27 KsltNSHP 
DO 27 1=1, ITT 
C 

C IDENTIFY TEST NUMBER IN INDEX 
C 

DO 24 J=1,136 

IF ( LTE ST ( I > « EG • INPX ( J ) ) GO To 2 b 

24 CONTINUE 

STOP aiNVALlD TEST NUMBERS 

25 1 J=J 

LREC=INDX3( IJ) 

IF ( LTEST ( I ) -400) 41,31*31 
31 IljDXl = 1RU 
GO TO 50 
41 INDX1 = lKB 
C 

C PICK UP KEY FROM HIT ARRAY OF SAMPLE NUMBERS 
C 

50 KEY ( 2 ) =LhlT (K ) 

C 

C DETERMINE IF DATA NEEDED TS FROM CURRENT RECORD 
C 

IF ( KEY ( 2 ) .EQ.KSAV) GO TO 26 


RETRVE 

RETRVE 

RETRVE 

RETRVE 

RETRVE 

RETRVE 

RETRVE 

retrve 

OECI 0 
DEC 1 0 
DEC 1 0 
DEC 10 
DEC10 
EEC 1.0 
retrve 
retrve 
retrve 
retrve 

RETRVE 

retrve 

retrve 

RETRVE 

retrve 

RETRvE 

retrve 

retrve 


c 

C CHECK FOR UkINE OR BLOOD FlU 
C 

C 29 IF(INOXKIJ) .EQ.1RU) GO TO 2fl 
29 IFdr4DXl.EQ.lRU) GO To 28 


retrve 

retrve 

retrve 

retrve 

retrve 
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ooono nooononn 


CALL RANLOM(l,aRA3a,XTEMP,32,KEY»100 ,100 ♦XCODE.LOC) 
CALL GET ( FITRA3 ) 

LOC = 3 
IF1LE = 3 

IF(IEPR.ME.O) GO TO 100 
GO TO 26 

28 CALL RANliOM<l*aRA2a»XTrMPil25iKEY«100 ,100 .ICOUE.LOC) 
28 CALL GET l FITRA2 ) 

LOC = 2 
IFILE = 2 

IF< IERR.NE.O) GO TO 100 


FETCH WORD NUMBER of DATA RECORD FROM INDEX » STORE DATA 
VALUE IN CURRENT XDATA LOCATION AND INCREMENT 
xoata location COUNTER M 


26 

26 

30 


27 


LREC=INDX3( IJ) 

XDATA (M)^XTEMP(LREC ) 
M=M+1 

IFIH.GT.100) GO TO 110 
KSAV=KEY<2) 

CONTINUE 


NDAtA = NUMBER OF DAyA VAlijES REjREIvED 


100 

101 

105 

104 


HO 

111 


ND AT A=M- 1 
RETURN 

IF { IERR .EO.ICDT) GO TO 105 
PRINT 101, IERR , KE Y ( 2 ) 

F oRMAT < 1H , 19 Hr ANDoM ERRqK-RE Tr VE , qQ . 5X » 1 4 > 

STOP 100 

PRINT 104,KEY(2) 

FORMAT ( 1H ,27HSAMPLE NO. NOT FOUND-RETR VE , 5x , 14 ) 

XDATA ( M ) — — 1 * 

IERR=0 
GO TO 30 
PRINT 111 

FORMAT (1H1,43HDATA BUFFER FU L |_ BEFORE ALL DATA RFTREIVED ) 

STOP 110 

END 

SUBROUTINE stat 

common xdata(ioo) »t(2oo) »ioplot»ifff*kot.kskip,lt*lm,lstop 

COMMON /HITBLK/LHIT (loo) .MDAT e (100 ) ♦ ISAV(16) .MTVOL ( 100) 
COMMON /HEADER/ LSTUDY ( 1 0 > « I S i LDATE { 150 > * I D « LMAN < 9 > ♦ IM , JOB ( 

LTYPE(20) ,lTp, L TEST( 125) , ITT, NSMP, NDATA 


SSIGmA ( 3 ) * NNN ( 3) 


COMMON/RG/ DATESC(3.5) ,IVV(4) , SSmEAN(3>» 

REAL KSTUOYt KTYPE, KMAN. KTEST. NITS 
OtMENSION ISIG ( 2 ) 

DIMENSION X(l) 

DIMENSION LTEXT ( 120 ) , mTEXT(120), XOUT { 120 ) 

DIMENSION NDF ( 3 ) , S(3), P(3)» TM(3)i WTV(3>» XMS(3)« IPP(3) 
DIMENSION IDK120), 102(120), LK(3) 

EOUIVALENCE(Xt XDATA) 

DATA ID1/120*1/, LK/3*0/ 

DATA IPP/4HPRE , 4HIN ♦ 4HP0ST/ 

DATA IP2/SHPRE- IN , SHIN-POST , 8HPRE-POST/ 


RETRyE 
RETRvE 

RET^vt 

M fvE 

RF.TRVE 
RETRvE 
retrve 
RETRvE 
RETRVE 
RETRVE 

retrve 
retrve 

RETRVE 
RETR'vE 
RETRVE 
REtRvE 

retrve 
retrve 
rETrve 
retrve 
retrve 

REDUCE 
retrve 
retrve 
retrve 
retrve 

-rETRvE 
retrve 
retrve 

RSI fVE 
RETmVE 
RETRVE 
retrve 
retrve 
retrve 

RETRVE 

retrve 
retrve 
RETRVE 
retrve 
retrve 
retrve 
retrve 
retrve 
stat 
reduce 
reduce 

16) . STAT 

stat 

f SSE(3)STAT 

stat 

STAT 
STAT 
STAT 
« IP2 ( 3 ) STAT 
ST, 

ST- . 
STAT 
STAT 

stat 
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non o non 


FILL OUTPUT ARRAY 

DATA ISTAR/IH*/, IBLAr,iK/lH /, ISAVE/4HSAVE/ 

DATA IPLUS/1H+/* IHINUS/1H-/* IPPL/2H++/» IMMI/2H--/ 

DATA IUATE/4HDATE/, I V0LU/4HVQLU/ , IBOTH/4HBOTH/ 

NOBS = NOATA 

1 IF (NOBS - 1) 999.999,2 

2 LOOP = ITT 
IOATEF = 0 
IVOLUF = 0 

IF ( JCR<2> .EG.IDATE ) InATEF = 3 
IF( J0B(2) .EQ.IVOLU) IVOLUF = 3 
IF( J0B(2> .NE.IBOTH) Go TO 3 
IDATEF = 5 
IVOLUF = 3 

3 KKK = NOBS/LOOP 

CALL TEXT ( LSTUD Y < 1 ) , L TYPE ( 1 ) , LMAN < 1 ) , LTEST(l), 

X KSTUDY , KTYPE, KMAN, KTEST ♦ NITS) 

CALL D A T E ( IWORD) 

PRINT 1000, JOB ( 3 ) 

1000 FORMAT ( 1H1, 20X, 42HNAS/V MSC ENDOCRINE DATA RETREIVAL PROGRAM 17/ ) 
PRINT 500, LSTUD Y ( 1 ) , KSTUDY , IWURD 
500 FORMAT (7H0 STUDY, » 12 » 2x» A8,20X,A10) 

PRINT 600, LTEST(l), KTEST . LrtAN < 1 ) ♦ KMAN 
600 FORMAT < 6HJTEST , , 13, 2X A8 , 20x 1 4HMAN, , 14, 2X , A8) 

PRINT 700, (LTYpEt I ) tlsltlTp) 

700 FORMAT(6HOTYPE. ,2013) 

PRINT BOO. NITS 

800 FORMAT { 15 )0JULIAN DATE , Ai) 

DO 150 L= 1 , LOOP 
L = 1 
LOOP = 1 

DO 210 II=LOOP, NOBS, LOOP 
I = II + L - LOOP 
IPLACE = I I/LOOP 

210 XOUT( IPLACE) = XDATA(I) 

SORT BY DATE 

NOSLTS = NOBS/LOOP 
NM1 = NOSuTS - 1 
DO 230 1=1, NM1 
IMAX = 99)9 
I SUB = I 

DO 220 J=[, NOSLTS 

IF ( IMAX-MOATE < J ) > 220i220,2H 

211 IMAX = MDATE(J) 

I SUB = J 

220 CONTINUE 

ITEMP = MDATE ( I SUB ) 

TEMP = XOJT(ISUB) 

MDATE ( I SUB) = MDATE ( I ) 

XOUT ( I SUB I = XOUT ( f ) 

MDATE ( I ) = ITEMP 
XOU'MI) = TEMP 
230 CONTINUE 

IG = LSTUDY(l) 

IW (1 ) = 0 
IVV (4 ) = NOSLTS 


STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

s fat 

STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
JjEC 10 

dec 10 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 


\ 
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n n n n n 


c 

c 

c 

c 

c 


L)0 240 I=l,NOSLTS STAT 

IF ( MPA TE ( I ) .LE.DATESC (2, IG ) > I V V C 2 ) = I STAT 

IF ( MDATE ( I ) * LE« DATESC ( 3 , IG ) ) X V V < 3 ) = I STAT 

240 XUATA(I) - XOUT(I) SJ ’ 

UO 13 3 1 = 1*3 S.-m 

NF IK ST = I VV ( I ) +1 STAT 

MLAST = IVV(I + 1> STAT 

CALL MESIG<LTEXT,NFIRST.NLAST,SHEAf\l, SIGMA. NN ) STAT 

SSMEANCI) = SMEAN STAT 

SSlGMA(I) = SIGMA STAT 

NNN(I) = \IN STAT 

1.33 CONTINUE STAT 

i'JFIkST = l STAT 

NL AST = UOSLTS STAT 

CALL MFS 16 ( LTEXT , NFIRST , NLAST , SMEAN » SIGMA * NN ) STAT 

STAT 

IF THERE ARE 2 OR MORE PRE-FlIGHt OBSERVATIONS THE EXTREME VALUES STAT 
are flageo on the basis OF KRE-FlIGHT mean And STD . DEV* STAT 

OTHERWISE THE TOTAL MEAN AND STD. DEV. ARE USED. STAT 


IFKJNN(l) - 2) 134*l3fe,13fa 
134 SSG = SIGMA 
SSM = SMEAN 
GO TO 137 

136 SSG = SSIGMA(l) 

SSM = SShEANCl) 

137 101 = 2,3263+SSG 
T 05 = 1.6449+SSG 


00 166 11=1*3 
IF1KST = IV V ( I T ) + 1 
IL AST = IVV(II + 1) 

IFdFIRST. - ILAST) 162,166,16c 
162 DO 165 I=IFIRST, ILAST 
MTEXTU) = iblank 
IF < X ( I ) ) 164.165*153 

153 OLLTA = X(I) - SSM 
IMOELIA) 155,154,157 

154 IF( <( I ) .UE.2.0 ) GO TO 164 
DEL. I A = SSM 

GO TO 1 5 6 

155 DLlTA = -DELTA 

156 IF(U£LTA.GL.T05) MTEXt(I) = IMINUS 
IF (UFLTA.bE.T01) MTEXT(I) = ImMI 


ORIGINAL PAGE is 
OF POOR QUALITY 


GO TO 164 

157 IF (DELTA. GF ,T05) M T E X T ( I ) = IPLUS 
IF(OELTA.GE.T01 > FTEXt(I) = I PPL 

164 PRINT 400 , MDATF ( I ) ♦ X(T>, LTEXTd), MTEXTd) 

165 CONTINUE 

PRINT 900 , SSME AN (II), SSIGMA(II), NNN (II) 

166 CONTINUE 

IF ( JOB ( 3 ) - 1000) 150,145,145 

145 IF(NN) 150,150,146 

146 CALL S TPLOT( LOOP, NOBS, NSl OT . I WORD , KSTUD T , KTYpE.KMAN.KTEST , SMEAN. 
X SIGMA) 

i50 CONTINUE 


ICASE = Cl 
ICASE = 1 
ICASE = 2 
ICASE = 3 


NO TESTS 

PREFLIGHT ONLY 

PPL and inflight ONLY 

ALL 


STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

S sC 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

stay 

STAT 
STAT 
STAT 
S i AT 
STAT 
STAT 
STAT 
STAT 
STAT 



STAT 

STAT 

STAT 
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c I CASE = 4 PRE AND pOSTF| r tGirtT ONLY 

C 

i < IKNKNCD-1) 170«170*171 

170 NT = 0 
ICASE =0 
GO TO 999 

171 SSE(l) = SSIGMA ( 1 ) /SORT (FLOAT (tyNN< 1)M 

PRINT 300 0 * NUN ( 1 ) » SSMfAN(1>» SSIGMA(I)* SSE(1> 

3000 FORMAT (20 (AH )/23H P ARAMETK I C STATIST ICS. //aHiiSUHKARY/ 

X39H0SAMPLL N MEAN SO SL/4H0PKC. « 16* 3F11.3) 

IF ( NNN ( 2 ) -1 ) 172*172*176 

172 IF(WNN(3)-1) 173*173*174 

173 NT = 1 
ICASE = 1 
GO TO 999 

174 SSE ( 3 ) = SSlGMA(3)/SORT(FLOAT(iMNN(3U > 

PRINT3010 «NNN (3 ) * SSMEARM 31* SSI GMA ( 3 ) * SSE l 3) 

NT = 2 

ICASE =4 
C 

c FOR CASE 4 FIX NNN AND X FQR ACRDAN . 

IF ( NNN ( 2 ) »EQ. 1 ) GO TO 1 75 
NNN(2)=NNN(3) ■ 

GO TO 100 

c NNN ( 2 ) IS 1 HOVE X 

175 CONTINUE 
NNNl = Ni\lN ( I ) +1 
l\iSLTMl = NCSl.TS-l 

Du 179 I=NNNl.NSLTMl 
X(I)=X(I+1) 

179 CONTINUE 

NNN ( 2 ) =NNi'ji ( 3 ) 

GO TO 100 

C CHANGE THIS eater 

C 176 SSE ( 2 ) = SSIGNA(2)/SQR T( FLOAT (NNN(2) ) ) 

PR I NT 3 020 * NNN ( 2 ) * SSKpANt 2 1 • SSi^iWA ( 2 1 * SSE<2> 

3020 FORMAT ( 4H0IN »I6*3F11.3) 

IF l NNN ( 3 ) - 1 > 177 * 177 *176 
177 NT = 2 

ICASE =2 
GO TO IBO 

176 SSE (3) = SSIGHA ( 3 ) /SORT ( FLOAT ( MNN( 3 ) > ) 

PHI NT 30 1 C * NNN ( 3 ) * SSMFANC3)* SS IGHAt 3 ) « SSE (3) 

3010 FORMAT { 5ROPOST * 15 « 3F 1 1. ,3) 

NT = 3 
ICASE =3 
100 CONTINUE 

SE = S I GMA/SORT ( FLOAT ( NN ) ) 

PRINT 3030* NN* SMEAN, SIGMA, S E ■ 

'3030 FORMAT ( 41 *10(4H )/4H SUM . 16 « 3F11 . 3 ) 

C 

c GET RIO OF NEGATIVE VALUES 

C I RANGES OVER ALL POINTS. 

C J PARSES OVER VALID POINTS, 

C 

J = 1 

DO 330 1=1 *NOSLTS 
IF ( X < I ) ) 310*330*320 
310 IF ( X ( I > + 2 • 0 > 330*315*330 


stat 
stat 
DEC 10 
stat 
stat 

DEC 1 Cl 

STAT 

STAT 

STAT 

STAT 

DEC 10 

DEC 10 

STAT 

STAT 

DEC 10 

STAT 

STAT 

stat 

STAT 
SCAT 
DEC 10 
DEC 10 
DEC 10 
DECK) 
DEC in 
DEC 10 
. OCCIO 
DEC 10 
OCCIO 
OECIO 
DEC10 
DEC 10 
OECIO 
STAT 
STAT 
SCAT 
S CAT 
S TAT 
DEC 1 0 
SCAT 
SCAT 
STAT 

stat 

STAT 
STAT 
SCAT 
STAT 
STAT 
STAT 
STAT 
SCAT 
S CAT 
SCAT 
STAT 
STAT 
STAT 
SCAT 
STAT 
STAT 
STAT 


\ 
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315 X< J> = 0.0 
J = J + 1 
60 TO 330 
320 X(J> = X(I) 

J = J + 1 
330 CONTINUE 

CALL ACNDAN(X» NT, NNl\l, TM « WTV, Si GM» NUF, IEK) 

ni = ndf(1) 

IM2 = NDF ( 2 ) 

51 = S(l) 

52 = S ( 2 ) 

CALL FFOUT ( Si * S2 * Ml i N2 , FVAL , PRFV AL ) 

DO 193 IMS=1, 3 

193 XMS( IMS) = S< IMS)/NDF(IMS) 

PRINT 3090 
3090 FORMAT < IX) 

PRINT 3100 

3l«'0 FORMAT (26H0ANALTSIS OF VARIANCE TABLE. /35H0 

X MS F /35H — - 

PRINT 3200, NDF(l), S<1>, XMS(l), FVAL 
3200 FORMAT < 6R TREAT, 14, FlO.l, F10.1, F8.3) 

PRINT 3300, N D F ( 2 ) » S(2)> XMS(2) 

3300 FORMAT ( 61 10 ERR OR * 14, FlO.l, flO.;, 6H /4H -- 

PRINT 3400, NDF(3)t S<3), XMS ( 3 ) 

3400 FORMAT ( 6H TOTAL, 14, FlO.l, FlO.l, 6H > 

PRINT 3800, FVAL, PRFVAL 

3800 FORMAT ( lhO,F7. 3, 23H Is SIGNIFICANT AT THE ,F5.1 
1EL) 

IF < NT-2 ) 999,850,624 

824 IF(PRFVAL - 5.0) 625,825,850 

825 N1 = 1 
PRINT 350.0 

3500 FORMAT 1 1 A HO CONTRAST F ) 

P ( 1 > = 1 
P ( 2 ) = >1 

CALL ACTRST(TM, NNN, 3 , 1, P» 1, U, SO) 

CALL FFObT <SQ,S2,R ; 1 , N^,FVAL,F'RFVAL) 

PRINT 360 0 , IP2 ( 1 ) , IP?<2), FyAL, PRFVAL 
3600 FORMAT ( 1H0 , 2A4, F8.3, 23H IS SIGNIFICANT AT THE 
X15H PERCENT LEVEL.) 

P<1> = 0 
P<2> = 1 
P ( 3 ) = -1 

call ACTRST(TM, NNN, 3 , 1, p, 1, «, SQ) 
call ffout (sq»S2,m,n?,fval»f rfvaL) 

PRINT 36C 0 ♦ IP 2 ( 3 ) , IP2<4), FVAL, PRFVAL 
P { 1 > = 1 
P ( 2 ) = 0 

CALL ACTRST ( TM , NNN, 3, 1, P, l, Q 1 SQ) 

CALL FFOUT (SQ 1 S2,Nl,N2, FVAL, P.RFVAL) 

PRINT 3600 , IP2 l 5 ) , IP?(6), FVAL, PRFVAL 

850 CONTINUE 

851 NP = 0 

00 655 1=1, NT 

NCUC = NNN < I ) 

DO 855 JsliNCDC 
NP = NP + 1 
855 ID2 ( NP ) = I 

IF< ICASE.EQ.2) Go To 861 
IF( ICASE.EQ.4) Go TQ 860 


OF SS 

) 


, 9<4H )) 


14H PERCENT 


, F5 . 1 , 


STAT 

STAT 

STAT 


O I » • . 

STAT 
STAT 
STAT 
STAT 
.STAT 
S TAT 
S TAT 
STAT 
S T A I 

s tat 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

LEVSTAT 

STAT 

I.XC10 

r T J_T 

s 

STAT 
STAT 
STAT 
STAT 
ST AT 
STAT 
STAT 
STAT 
ST A T 
STAT 
STAT 
STAT 
STAT 

stat 

STAT 

stat 

stat 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

stat 


STAT 

PECIO 

OECIO 
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PRINT 4 0 00 

4000 FORMAT < lh0/20< 4H )/?7li NON-PARAMETR I C STATISTICS.) 

C C ALU KRU^D AL ( X , ID1 » ID2 « NP ♦ 0 * 0 , NT t NNfJ ♦ LK ) 

CALL KRl'SWAL(X.IDlfln'P»NP.0 4 l,WTtrJNNtLK) 

PRINT 110li,IP2(l) 

nor FORMAT ( 1 NO /I OHO CONTRAST , A«) 

IMP = NNN(l) + NNU ( 2 > 

C CALL K R l S U A L < X « 1 0 1 « I D p * IMP » 0 t 0 t 2.MTN.LK) 

86 I CONTINUE 

CALL kKI-SWAL<X» I Dl ♦ IP? »MP « 0 i !♦ 2 * !■ N Rj ♦ l K ) 

IF ( 1C ASF. * E.0 • 2 ) GO TO <*99 
IMP = MOM (2) + NN.N<3> 

1ST = N N r. ( 1 ) + 1 
PRINT 1 1 0 0 » I P2 ( 2 ) 

C CALL KKUSWAL ( X ( 1 ST ) , I Cl ( 1ST) , IU2( 1ST ) ,NP . 0 , 0 ♦ 2 ♦ CNN ( 2 ) *Lr ) 

CALL KRLSkAL ( X< I ST ) , J tilll ST ) , 1 02 ( I ST ) 1 1MP * 0 * 1,2,NNU(2 ) »Ln) 

NCPC = NMM ( 3 ) 
do 860 j^i.ncdc 
K = NNN < ] ) + J 
L = pr. N (2 ) + J 
X(K) = X(L> 

IDl ( K ) = ID1(L) 

860 102 (K) = 1D2(L) 

C CALL kRUSPALIX. IL1«ID?«NP*(J,0» 2 i NNN t LK ) 

660 PRINT 1 1 0 0 » I P 2 { 3 ) 

CALL KRUSWAL ( X , IT 1 , 1(52 *NP f Of 1* 2.NNNULK) 

999 PRINT 1 OCO, JOB ( 3 > 

RETURN 

200 F uRM A T ( 1 OX , F 1 2 . 4 , 2 X , 2 A 1 ) 

300 FORMAT (13H0GRAND MEAN =«F10.3, 6H SD =.F10.3,?h N =.I3) 
40C FORMAT < IlO«Fl2*4,2XiA4,2X.A2) 

900 FORMAT ( 7H0MEAN =,F10.3, RH SI ?,F1Q.3, 7H N =,I3//) 

END 

SUBROUTINE MES I G ( L TEXT ,NF IRST ^ML AST t^Ml'AN * SIGN A ,NN ) 

DIMENSION l TEXT (1) 

NN = 0 
SUM = 0.0 
S SO — 0.0 

IF INF IRST - nLAST ) 10*90.90 
10 DO 140 I — r\l F IRST . ML AST 
I J SLOT = 1 

CALL OTEST (I»SUM*SSQ»NM*LTEXT ) 

140 CONTINUE 

IF(NN.EQ.O) GO TO 90 
SMEAR = SUM/NN 
SlGl v iA = 0 . 

ifinn.eq.i > return 

IF ( (NI\S*SbG-SUK*SUK> .LF.O. > RETURN 

SIGMA = ((NN*SSO - SUM*SUM ) / ( l\lN* ( NN - lM>**0.b 

return 

90 SHE AN =0.0 
SIGMA - 0.0 
RETURN 

END • 

SUBROUTINE OTEST < I , SUM , SSQ ♦ NN , LT EXT > 

DIMENSION LTEXT(l) 

COMMON XL AT A ( 100 ) * T ( 20 0 ) ♦ lOPLOTt IFFF .KG f » KSK I P * L T . LM , LSTOP 
DATA IZ/4H0 . 00/ » 1SS/4IISKIP/. IWV/4H1NVL/ 

DATA IBLANK/4H / 

IF ( XDATA ( I ) ) 310.410,510 


STAT 
ST AT 

STAT 

STAT 
STAT 
ST AT 
STAT 
STAI 
UEC 1 0 
STAT 
OEC 10 
STAT 
STAT 
STAT 
STAT 
ST AT 
STAT 
STAT 
STAT 
STAT 
f TAT 
STAT 
STAT 
STAT 
I ; EC 10 
STAT 
. UFCl u 
l »EC 1 0 
STAT 
STAT 
STAT 
STAT 
STAT 
r-iESIG 
MESIG 
MESIG 

mesig 

NESIG 
MESIG 
MESIG 
MESIG 
i ,, 'i E SI G 
i-lESlG 
DEC 11 ) 
MESIG 
DEC 1 0 
DEC 10 
PEC 1 0 
MESIG 
MESIG 
MES I G 

f- esig 

MESIG 
MIES I G 
otest 

OTEST 

REDUCE 

OTEST 

JAN 25 

OTEST 
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310 I XI - -XDATA ( I ) + 0.5 

IFUXT - 2) 315. 312 ,315 
312 LTEXT(I) = IZ 

NN = MW + 3 
RETURN 

315 LTtXT ( I) = ISS 
RETURN 

410 LTEXT(I) = INV 
HLTURM 

510 NN = NN +1 

LTEXT(I) = IBLAMK 
SUM = SUM + XDATA(I) 

SSG = SSt. + XDA1 A < I ) *XDATA ( I ) 

RETURN 

END 

SUBROUTIr E UERTST 

RETURN 

EMU 

SUBROUTINE STPLOI < LOOT » NOpST ♦ NSLOT , 1 WORD , KST UDY , kTYPE , K hAN ♦ KTE ST 
. X SNt AN, SIGMA ) 

COMMON X f.i A T A ( 1 0 0 ) » T ( 2 q 0 ) * IQPLOT . IFFF.KO f .KSKIP.LT .LM.LSTOP 
COMMON /HITBLK/LHIT 1 100 ) .WDAiEdOO J . ISAV (16) . MT VOL ( lOl) ) 

COMMON /READER/ LSTUDY< 10) . IS « (.DATE ( 150 ) » IU»LI“iAw ( 9 ) » Ih ♦ JOB (16 ) , 

. LTYPE(20) ♦lTP»LTLST(125) .ITT. NSNP . NDATA 

DIMENSION Y D A TF ( 2 0 0 ) . X P ( 3 ) 

COMMON/RG/ DATE SC (3.5) , IVV ( 4 ) . SSMEAN<3>, SSJGWAti). WWW ( 3 ) 

REAL*e mstuoy.mtype.mman.mtest 

REAL MSTUDY . MTYF E * . NITLST 

REAL KSTUOY. KTYPE. KPANi KTtST. WJTS 

DIMENSION MSMAN ( 7 ) 

EUUIVAL.EGCE (YDATE.T) 

DATAWSM AN/4. 9.6.0. l.p, 3/ 

II- (WORST * 1) 911.911,1 
1 MFIRST s MDATE ( 1 ) 

DO 10 11=1, NOBST 
IF(MDATE(I1) - WFIRST) 9,10.10 
9 MFlRST = MDATEUI) 

10 YD ATE (II) = MDATF(II) 

J 1 = NOBST + 1 

J2 = MOB ST + 2 

CALL SCALE! XDATA. 3. 0, WORST. 1 ) 

XDATA (NObST + 1) = 0 . 0 
IF(XOATA( J2 ) ) 911.911, il 

11 IG = LSTLDY(l) 

YDATE(WORsT + 1) = 

YDATE < NObST + 2) = 

UP = ( DAT ESC ( 2 , IG ) 

DOWWr ( DAT ESC ( 3 , IG ) 

XP( l) = 0*1 
XP<2) = C.1+ UP 
XP ( 3 ) = 0.1+ DOWN 
IMTIC = 3 

CALL TEXT (LSTUDY! 1 ) , L TYPE < 1 ) , LMAWd), LTEST < 1 ) . 

X KSTUDY » KTYPE. KMAW , K.TEST ♦ WITS) 

KS = KSK1P - KSKlP/3+3 
IF(KS) 208, 108.206 
l08 CALL PLOT (4. 25.10. 5 , - 3 ) 

106 CALL PLOT(8.50.10.5,-3) 

FPW = LTYPf ( 3 > 

call SYMBOL (0.3G,-. 4 , 0 . 10.KSTUDY , 0,0. 8) 


PAtESC (1 * I G ) 

24.0 

- DATESC(l.IG) )/YDATE(M0BST 

- nATESC(l,IG).)/YuATL(M06ST 


2 ) 

2 ) 


OTEST 
GTE ST 
'.'TEST 
OTEST 
OTE 
OT 0 _ 
OTEST 
liTESi 
OTEST 
OTEST 
jTEST 
OTEST* 
01 EST 
0 TEST 
( > T E S Tv 
UERTST 
UERTST 
UERTST 
, s ri'Lo f 
STFLOT 
reduce 

REDUCE 

STPloT 

STPLOT 

reduce 

stplct 

stplot 

stplct 

STPLuT 

STPLOT 

STP‘^ r 

STP.^. 

STPLOT 

stplot 

stplot 

STPLOT 

STploT 

STpLo r 

STPLOT 

STPLOT 

STPLCT 

STPLuT 

stplot 

stplot 

stplot 

STPLOT 

stplo-t 

STPLOT 

STPLOT 

stplo-t 

stplot 

stplot 

STPLOT 

STPLOT 

stplot 

STpLo T 

STP 

STPl^i 

stplof 

STPLoT 
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CALL SYMBOL (1 .20, -.4, (i.10» KTEST » 0.0, 8) 

CALL SYMbOL<2. 00,-. 4.0. 10,4)11 YPE, 0,0. 4 ) 

CALL IvUrlt-Lb (2. 40, -.4,0. 10 i F f ’N , 0 , 0 , - 1 ) 

CALL SY MPGl ( 2 . 6 0 , - . 4 . 0 . 1 0 . 1 WORD , 0 . C » 10 ) 

208 CALL PLOT { 0 » (t » - 3 » t) * " 3 ) . 

CALL AxIMO. 0,0.0, 121! JULIAN DATE, 

] -12, 4 .0,00. 0 , YDA7F ( J1 ) , YOATL (^2 ) ,-^.,4, 3 ) 

C CALL AXIS l X , Y , EiCf, » NC , s I7E » ThET A , Y MIN , 0 Y , f iDlC » NLAb » NT I C ) 

C CALL AXIS ( 0 . 0 , 0 .0 , lf.H DATA VALUE , lb, 3.0 , . 90.0, Y(J1)»Y(J2) 

CALL AX IS ( 0 . 0 , M . 0 ,NITs , 8,3.0, 90.0, XuAlA(.il), 

1 XUA1 A ( J2 ) » -1' 4, 1} 

FPM = LMAAH 1 > 

CALL SYMHOL (0,. 10 ,3.01. 0.07, KFAIJ, 0,0. 3) 

DO 30 A JJ=1,3 
Kb = 4 - JJ 

CALL NUMBER ( XP ( KG ) , 2.A9, 0.07, SShE AN ( KG ) , 0.0, 2 ) 

30 A CALL NUMBER (XP (KG), 2.77, 0*07, SS 16MA ( KG ) , 0.(1, * ) 

CALL PLOT (UP, 0.0,3) 

CALL PL 01 { UP ,3.0,2) 

CALL PLOT (DOWN, 3. 0,3) 

call plot (i. own, o.o, 2) 

70P LL = NS I"; AN ( LiM’ M ( 1 ) ) 

CALL LINK (YDAU ♦ XPATA.MOPS.T » 1 , 0,LL) 

811 GUI; T 1 NUE 

KSK l p = KSK IP + 1 
911 RETURN 
ENL 

SODROUT I(,L TEXT ( LSTIJDY , LT YpE , LMAN » LTEST » NSTOpY » NT t PL , N Pi A N i N T E S T . 

1 NITS) 

C REAL *8 KSTUUY.MSTUDY ( f ) .KTfc ST ,MUHN( 124 ) , MELD (24 ) , M I TS ( 124 ) , 

RLAL KSTUDY , MST UOY ( = }» KTE.S1 , MURN ( 124 ) , MELD ( 24 ) H“IJTS(124) , 

1 M 1 1 S h ( 2 4 ) ,KTYPE ,MTYPF.(l5) , MM, KITS 
' REAL Iv STUDY , MY PE , NMA.Ni NTEST. KM AN , |’1M AN 19), I ITS 

DATA M STUDY /8HSME AT ,6HSKYlAB 2,&HSKYlAB 3,8HRKTLAB 4, 8HAP0LL01 /TEXT 

1/ TEXT 

DATA MMAN/4NCUR ,4HPLT ,4HSPT ,4HC1 »4HC2 ,4HC3 ,4NC4 , TEXT 

X4HC5 ,4HCfc / TEXT 

DATA (MURN(1 ) ,1=1 ,107) TEXT 


X 

/8HEPI 

,8HN0REPI 

, 8HADH 

, 8HHYDKO 

, ^HALDO 

.TEXT 

X6H170H 

, 8H0SM0 

, 8HNA 

,8Hk 

♦ 8HMG 

, 8HP04 

. TEXT 

X8HCA 

, 8HC.L 

, PHH 

, 8HSP.GR. 

, SUCRE AT 

, 8HURICACIU 

.TEXT 

X8HE 

♦ 8HSI 

,6HFE 

. 6HAL 

, 8 H M 0 

.8HCU 

, T E X T 

X8HZN 

, 8UT I 

, 8HMI 

, 8HSR 

, 8HCR 

, 8hBL 

.text 

XBHMN 

, am. i 

,8 HKD 

♦ 8HPD 

, SMANti 

, 8(,ET 1 0 

, TEXT 

X8HDHE A 

, 8H1 1=0 AND 

,8H11=0ETIC 

♦8H110H AND , 8H110HETI 0 

, SHTQT AL 

.text 

X8HLYS 

» 8HH I S 

, 8HNH3 

, 8HARG 

, BhHYp 

, 8HASP 

, TEXT 

X8HTHR 

, &HSER 

,'fhglu 

♦ 8HPR0 

, 8HGLY 

« 8HALA 

.TEXT 

X6HCYS/2 

, 8HV AL 

, OH MET 

,.8HILE 

, 8HLE.0 

, 8HTYR 

.TEXT 

X8HPHE 

, 8HHL Y S 

, ahgamma-ad 

, bhokn 

, 8HETH 

.8HNH3 

.TEXT 

X8HLYS 

, 8H1-CH3HIS 

,RHHIS 

.8H3-CH3HIS 

, BHAlviS 

, 8HTR Y 

, TEXT 

X8HCRE 

, 8HCAR 

, AHARG 

, 8HPSER 

, 8HPETN 

, 8HTYR 

.TEXT 

X8HUREA 

, 8HHYP 

, AHASP 

, 8HTHR 

, 8HSE K 

, 8HASP NH? 

.TEXT 

X8HGLU NN2 

, 8HSAK 

,8HPR0 

,8hGLU 

,8HC1T 

,8HGLC NH2 

.TEXT 

X8HGLY 

,6HAL.A 

.RHALPHa-AA 

, 8^-1 ALPHA- AB 

, 8 H V A l 

, 8HCYS/2 

.text 

X8HCYT 

, 8HMET 

, AH ILL 

, 8HLEU 

, 8 H T Y R 

,8hpHE 

♦ TEXT 

X8HB-ALA 

, 8HB-AIU 

, 8H5H1AA 

, 8H 

»0M 

,0h 

/•JAN25 

DATA (MURN 

( I) ,1=108,124)/ 




text 

X8H 

, 8H 

, AH 

, 8H 

, 8 hi 

,8H 

.text 

X8H 

,6H 

.8HCALCRIES 

, ShPROT E IN 

,6HD1E1 CA 

, SEtDIET P 

.text 

X6HDIET NA 

♦6HDIET MG 

, bhdiet k 

, 8HDIF T H20 

, 8HWEIGHT 

/ 

text 


STPLO r 
stplot 
stplot 

STPLOT 
STPLO T 
STPLO I 
STPLOT 
STPLO I 
) STPLOT 
STPLO t 
S i PLOT 
S VPLOT 
stplot 

STPLOT 

stplot 
stplot 
STPLOT 
stplot 
stplot 
si plot 

STPLoT 

STPLOT 

STPLOT 

S I plot 

STPLqT 

stplot 

STPLOT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 

TEXT 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DATA MBLD 

/8HHYDR0 

.8HALD0 

♦ 8 HHGH 

• 8HAN&1 0 

« 8 HINSULIN 

.TEXT 

X8HT4 

* 8 HACTH 

. 8 HADH 

* 8 HPTH 

1 8 HC AL 

* 8 HVIT .0 • 

.TEXT 

X 8 HTSH 

,8H0SM0 

, 8 HP A 

» 8 HK 

i 8 HMG 

♦ 8hP04 

.TEXT 

X 8 HCA 

« 8 HCt. 

. B.HGLU 

♦ SNTP 

♦8HTEST0S 

♦ 8H 

♦ JAN25 

X 8 H 

/ 





TEX" 

DATA ( MlTS( I > * 1 = 1 1 107) 




TEX! 

X 

/ 8 HUG/TV 

, bhug/tv 

. 8 HMU/T V 

» 8 HUG/iV 

. 6 HUG/TV 

.TEXT 

X 8 HMG/TV 

. 8HM0SM/T V . 8 HMEC/T V 

. 8HME0/TV 

» 8 HMtO/TV 

. 8 HMG/TV 

♦ TEXT 

X 8 HMCCVT V 

. BftMFQ/TV 

.8HML0 

♦ 8 H 

t BHMG/TV 

♦ 8 HMG/T V 

.TEXT 

X 8 HUG/ML 

, 8 HUG /ML 

. 8 HU 6 / ML 

« 8 HUG/ML 

♦ 8 HUG/ML 

* 8 HUG/ML 

♦ TEXT 

xohug/ml 

, 6 HUG /ML 

, 8 HUG/ML 

« 8 HUG/ML 

« 8 HUG/ML 

, 8 hUG/ML 

.TEXT 

X 8 HUG/ML 

♦ 8 HUG/ML 

, BHUG/ML 

. BHMG/TV 

♦ 8 HMG/TV 

. 6 HMG/TV 

♦TEXT - 

X 6 HMG/TV 

♦ 8 HMG/TV 

, bhmg/tv 

« 8 HMG/TV 

i 8 HM 6 /TV 

» 0HTMG/TV 

.TEXT 

X 6 HMG/TV 

♦ 8 HM 6 /TV 

« BHfiMG/T V 

♦ 8 HMG/TV 

» BHMG/TV 

. 8 HMG/TV 

.TEXT 

XdHMG/TV 

♦ 8 HMG/TV 

.oh^g/tv 

. 8 HMG/TV 

* BH^'G/TV 

. 8 HMG/TV 

.TEXT . 

X 8 HMG/TV 

. 8 HMG/TV 

, 8 HMG/TV 

. bhmg/tv 

» bhmg/tv 

. 8 HMG/TV 

♦ TEXT 

X 8 HP-G/TV 

, 8 HHG/TV 

, BHMG/TV 

t 8 HMG/T V 

♦ 8 HM 6 /TV 

. 8 HMMG/TV 

.TEXT 

X 8 HMG/TV 

. 8 HMG/TV 

, bhmg/tv 

. 8 HHG/TV 

♦ 6 HMG/TV 

18 HMG/TV 

.TEXT 

X 6 HMG/TV 

.BHMG/TV 

, bhmg/tv 

i 8 HMG/TV 

♦ 8 HMG/TV 

iSHMG/TV 

.TEXT 

XttHMMC/TV 

« 8 HM&/T V 

, bhmg/tv 

. 8 HMG/TV 

. 8 HMG/ T V 

.bhmg/tv 

.TEXT 

X 8 HM 0 /TV 

. 8 HM&/T V 

, BHMG/TV 

. 8 HH&/TV 

* 8HMG/1 V 

. 8 HMG/TV 

.TEXT 

X 8 HMG/TV 

iBHMG/TV 

, 8 HMG/TV 

f 8HF1G/TV 

♦ 8 HM&/IV 

. 8 HMG/TV 

.TEXT 

X 8 HMG/T V 

. 8 HM&/TV 

, BHMG/TV 

. bhmg/tv 

18 HMG/ I V 

♦ 8 HMG/TV 

♦ TEXT 

X 8 HHG/TV 

« BHMG/TV 

, BHMG/TV 

• 8 H 

t 6 h 

. 6 H 

/ J A N 2 5 

DATA (HITS 

( I I 1 1 = 108 

♦ 124 )/ 




TEXT 

X 8 H 

. 8 H 

• 8 H 

. 6 H 

» BH 

» 8 H 

.TEXT 

X 8 H 

. 8 H 

,BHKCAL 

* 6 HGRAMS 

i 8 HMf, 

. 8 HMG 

.-TEXT 

XOHKb 

, 8 HMG 

, pH MG 

. 8 HML 

» 8 HLBS. 

/ 

TEXT 

data MlTSb/ 8 HUG/lC OML , BHPG/Ml 

* 8 HNG/ML 

. 6 HMUG/ML/H 

. 8 HUU/ML 

.TEXT 

X8HUG/100ML 

» 8 H 

, 0 H • 

. 8 HPG/ML 

i BHPG/MiL 

i 8 HNG/ML 

.TEXT 

X 8 H 

» BHMOSM/L 

« RHHf (;/L 

i 8 HNEQ/L 

« 8 HMG PC 

. 8 HMG PC 

. J ANi 

xohhg PC 

.qhmg PC 

, 6 HMG PC 

. 8 HMG PC 

•enUG/iv 

♦ 8 H 

. 

X 8 H 

/ 





TEX1 

NSTUDY = MSTUDy (LSTUDy ) 




TEXT 

NMAN = MMAN(LMAN) 





TEXT 

IFtLTEST - 

400) 10 , 

20 , ?0 




text 

10 KTEST = MBLDtLTEST 

- ?99) 




TEXT 

KITS = MI rsB (LTEST- 

299) 




text 

GO To 30 






TEXT 

20 KTEST = MURN (LTEST 

- 399 ) 




TEXT 

KITS = MlTS(LTEST-399) 




TEXT 

30 NTEST = KIEST 





TEXT 

NITS = KITS 





TEXT 

RETURN 






text 

END 






text 

SUBROUTINE 

KRUSWAL 

(VVt-IDl ' I U 2 * 

N.NCEN. JOR 

»K» NUtNC) 


kruswal 

THIS PROGRAM CALCULATES A GENERALIZED KRUSKAL-WALLIS 

K-SAMPLE 

KRUSW'AL 

TEST. WHEN 

K = 2 . THE 

test IS- egual 

. TO GEHANai 

S GENERALIZED wlLCOXON 

kruswal 


TEST. CALCULATIONS FOll.oW THE PROCEDURES GIVEN BY ("l ANT EL < BIOMETR ICKRUSWAL 
MARCH 1967) KRUSWAL 

kruswal 

IN' CASE OF TWO-SAMPLE. IF THE SAMPLE SIZES ARE pIFFERENT. IT IS kRUSWAL 

suggested to name the one with less observations sample i. kruswal 

CALL NKRUSWAL(X» IDl , in? » NALL . NC . JOP « NCOND * NUNCEN * NCEM ) KRUSWAL 


kruswal 

X(I)«I=1« NALL array CONTAINING ALL OBs IN THE SAMPLES KRUSW'AL 

IOllIIri ITH CBS IS UNCENSOREB KR^ pL 

=0 ITH OpS IS CENSORED KRUc^AL 

102(1 )=U ITh OBS IS FROM JTh SAMPLE KRUSWAL 

nael total NO OF OBS kruswal 


- 94 - 



noon noon oooon oonooonn oooooo 


ini 

90 


12 


11 


13 


14 


C 

C 

C 

C 


22 


NC TOTAL NO pF CENSORED PBS KKUSWAL 

J0P=1 print infp kruswal 

=0 DO NOT PRINT KRUSWAL 

NCUND NO OF SAMPLES KRUSWAL 

NUNCEN { I ) NO OF UNCENSOrEQ OBS IN SAMPLE I KRUSWAL 

NCEN(I) NO OF CENSORED OHS IN SAMPLE I KRUSWAL 

DIMENSION XY ( 600 > » IDl(600)» 102(6(10) « NU ( 6 ) » NC ( 6 ) KRUSWAL 

DIMENSION R1C 600 ) ,R2 ( 600 > KRUSWAL 

kruswal 

MAXIMUM NO* OF SAMPLES = 6. KRUSWAL 

TOTAL NUMBER OF OBSERVATIONS ALLOWED = 60 0. KRUSWAL 

K = NO. OF SAMPLES kRUSwAL 

kruswal 

kruswal 

ORDER OBS. IN ASCENDING ORDER KRUSWAL 

kruswal 


CALL SOR12(XY»N»IDltlD?) ... KRUSwAL 

COMPUTATION OF R 1 KRUSWAL 

STEPS 1 and 2 : rank from llft to right ♦ omitting right censoredkkuswal 

VALUES. ASSIGN NEXT HIGHER RANK TO RIGHT kiUJSWAL 

CENSORED VALUES KRUSWAL 

kruswal 

IRANK-0 KRUSWAL 

DO 901 = 1 »N KRUSWAL 

IF ( lfil ( 1 ) *EQ. G ) GO TO 101 KRUSW’AL 

1RANR=IKANK+1 KRUSWAL 

Rl ( i ) = I RANK KRUSWAL 

GO TO 90 KRUSWAL 

R 1 ( I ) = 1 R ANK + 1 KRUSWAL 

continue kruswal 

kruswal 

STEP 3 S REDUCE THE RANK OF TIED OBSERVATIONS TO THE LOWEST KRUSWAL 
RANK FOR ThF VALUE KRUSWAL 

KRUSWAL 


Kl=N-l 
Ll = l 

IF (XY(Ll) .NE.XY(L1 + D ) GO To 11 
jEMprIDI (LI )*ID1 (L.l + 1 ) 

IF ( JEMP .EG. 0) GO TO j.l 
Rl ( Ll+1 ) =R1 (LX) 

IF <L1.EQ.KD GO TO 13 

L1=L1+1 

GO TO 12 

IF <L1.EQ.KD GO TO 13 

L1=L1+1 

GO TO 12 

CONTINUE 

COMPUTATION OF R2 

STEP 1 : RANK FROM RIGHT To LEFT 


ORIGINAL PAGE IS 
OF POOR QUALITY] 


KRUSWAL 

KRUSWAL 

kruswal 

KRUSWAL 

kruswal 

kruswal 

kruswal 

kruswal 

K RUS W AL 
KKUSwAL 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 


KKUSWAL 

DO 14 1=1, N KRUSWAL 

R21D=N-I+1 KRUSWAL 

KRUSWAL 

STEP 2 : REDUCE THE RANK Of TIED OBSERVATIONS TO THE LOWEST RANKKRUSWAL 


FOF THE VALUE 


L1=N 

IF (XY (LI) .NE.XYUl-l) ) GO To 21 
JLMP=ID1(L1)*ID1(L1-1 ) 


KRUSWAL 

KRUSWAL 

KRUSWAL 

kruswal 

KRUSWAL 
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IF (JEMP .EG. 0) GO To 21 

KRUSWAL 


R2(L1-1)=R2(L1) 

KRUSUAL 


IF (LI. EG. 2) GO TO 23 

KRUSWAL 


L1=L1-1 

KRUSWAL 


GO TC 22 

KRU! u 

21 

IF <L1.EG. 2) GO TO 23 

kru!_L 


L1=L1-1 

KRUSWAL 


GO TO 22 

KRUSWAL 

23 

CONTINUE 

KRUSWAL 

C 


KRUSWAL 

C 

STEP 3 : REDUCE THE RANK OF RIGHT CEmSOREO OBSERVATIONS To 

unit ykkuswal 

c 


KRUSWAL 


IF (NCEN .EO. 0) GO To 501 

KRUSWAL 


DO 24 1=1. N 

KRUSWAL 


IF Uni(I) .EG. 1) GO TO 24 

KRUSwAL 


K2 ( I ) =1 • 

KRUSWAL 

24 

CONTINUE 

KRUSWAL 

C 


KRUSwAL 

C 

COMPUTE FINAL SCORES -Rid) 

KRUSWAL 

c . 


KRUSWAL 

501 

CONTINUE 

KRUSWAL 


DO 25 1=1. N 

KRUSWAL 

25 

R1 ( I ) =R1 f I ) “R2 C I ) 

KRUSWAL 


IF(JOP.NE.l) GO TO 37 

KRUSWAL 


PRINT 30 

KRUSWAL 

30 

FORMAT ( 1H0.8X.S1IS).8X .SiOBSERVaT IONSa » 8X . 5)SAMPLEa . 6X » aSCQRLSa ) 

KRUSWAL 


DO 31 1=1. N 

KRUSWAL 


IF ( I Dl ( I ) , EG • 0 ) GO TO 34 

KRUSWAL 

. 

PRINT 33. I « XY ( I > . ID2 ( I ). R1 ( I ) 

KRUSWAL 


GO TO 31 

KRUSWAL 

34 

PR 1 NT 35. I»XY(I).ID2(I)«R1(I) 

KRl" 3, \L 

33 

FORMAT (IN ♦6X,l3,7XtFfi.ltl5X,l2,i2X»F6.0| 

KRUS L 

35 

FORMAT (1H .6X. I3.7X.FA.1.1H+.14X. l2tl2X.F6.0) 

KRUSWAL 

31 

CONTINUE 

KRUSWAL 

37 

PRINT 36 * 

KRUSWAL 

36 

FORMATTING) 

KRUSWAL 


IF (K.GT.2) g° TO 200 

KRUSWAL 


CALL TW0SPL(R1.ID2.M,NU.NC) 

KRUSWAL 


GO TO 1000 

KRUSwAL 

200 

CALL AKSPUK,N»R1.|\|U.mC»ID2) 

KRUSWAL 

1000 

CONTINUE • - 

KRUSWAL 


RETURN 

KRUSWAL 


END 

KRUSWAL 


SUBROUTINE SORT2 ( X . N. IP. IC ) 

S0RT2 


DIMENSION XU),ID(1),jc(1) 

S0RT2 


DO 1 1=1. N 

SORT2 


J=N-I+1 

S0RT2 ’ 


JJ=J-1 

S0RT2 


IF ( JJ «LT . l)GO TO 1 

SORT 2 


DO 2 K=1,JJ 

S0RT2" 


IF ( X < K ) ,Nf « X < J ) ) GO TO 3 

SORT2 


IF (ID(K)-ID(J) ) 4.2.? 

SORT2 

3 

IF ( X < K ) »LT . XT J) ) Go TO 2 

SORT2 

4 

X1=X<J) 

SORT 2 


ITE["|=ID(J> 

SORT2 


ICTE=I C ( J ) 

SORT2 


X(JJ=X(K) 

SOR] | 


ID( J ) =IO(K ) 

SORT'S- 


IC(J)=IC(K) 

SORT2 


X ( K ) =X 1 

S0RT2 
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ID(K)=ITEM 
IC(K)=1CTE 
2 CONTINUE 
1 . CONTINUE 
RETURN ■ 

END 

SUBROUTINE TWOSPL <R1» TD2,N,NU»nC) 
DIMENSION ID2<1 ) ,R1 <1 ) ,NU(1 ) ,NC( 1 > 
C DATA 0NE,TW0/a0NEK,?m:03/ 

DATA ONE/IOHONE / 

DATA TWO/10HTWO / 

WW = 0 . 

DO 2b 1 = 1, N 

IF ( 102(1 ) * EQ • 2 ) CO TO 2b 
Ww=WW+Rl < I ) 

26 CONTINUE 
SUM = 0 . 

DO 27 1=1 *N 

27 SUM=SUM+R1< I )**?. 

XNl=NUm+NC(l) 

XN2=NU ( 2 ) +NC ( 2 ) 

XN = N 

VAR=XNl*XN2*SUM/(XN*(XN-l, ) > 
VAR=SQRT( VAR) 


SORT 2 

SORT 2 

SORT 2 

S0RT2 

SORT 2 

SORT 2 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 


CALCULATE CONTINUITY COPRFCTlON TWOSPL 

.TWOSPL 

SIC=N=-1. TWOSPL 

IF (WW.LT.O.) SIGN=1. TWOSPL 

C0R=.5 TWOSPL 

IF (FLOAT ( (NC ( 1 ) +NC (2 ) ) /N) • LT , 0.2) COK=i.O TWOSPL 

COK=SIGN*COR TWOSPL 

IF (WW.EQ.O.) COR = 0 • TWOSPL 

TWOSPL 

CALCULATE FINAL W SCORE AND PROBABILITY, TWOSPL 

TWOSPL 

WSCORE=(WW+COR J/VAR TWOSPL 

WSCrWSCORE TWOSPL 

IF < A8S < WSC ORE ) -3 • 1 ) 305 , 30 ( 3.302 TWOSPL 

305 Pl=100.*( 1,-PRObCWSC ) ) TWOSpL 

GO TO 301 TWOSPL 

302 Pl=0.1 TWOSPL 

301 CONTINUE TWOSPL 

P2=P1*2 « TWOSpL 

P2=AMIN1(P2,100. ) TWOSpL 

PRINT 600, WW * VAR » WSCfipE TWOSpL 

60 0 FORnAT(lHO,3XdHW,7X,6HST. DEV . , 3X , 10HASYMPT0TIC/25X ,61-tWSCORE/lX , F TWOSPL 
19.O,F0.2,7X,F5.2) DEC10 

PRINT 601, WSCORE , P2 , TWO TWOSPL 

PRINT 601, WSCORE, PI ,Of;E TWOSPL 

601 FOR NAT (1X«F5.2,1X,3IS SIGNIFICANT AT THE a), F7.1.3 PERCENT LEVEL -TWOSPL 

iaiA3,3 TAILED TESTa) TWOSPL 

PRINT 602 TWOSPL 

602 FORMAT <1H0) TWOSPL 

RETURN TWOSPL 

END TWOSpL 

SUBROUTINE AKSPL (K ,N,R1 , NU, NC , ID2 ) AKSPL 

DIMENSION K 1 ( 1 ) , MU ( 1 ) , f iC ( 1 ) « W ( 6 ) , I D 2 ( 1 ) AKSPL 

AKSPL 

TEST STATISTIC FOR MGrEATER THAN 2) -SAMPLE. CASE AKSPL 
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c 


AKSPL 


DO 201 1 = 1. K 

akspl 

201 

W(1)=0. 

AKSPL 


DO 202 I J=1 ♦ N 

AKSPL 


I-lD? ( I J ) 

AKS& 

202 

W ( I ) =W ( I ) + R1 ( I J ) 

AKSlf 


T = 0. 

AKSPL 


DO 203 IU=1.N 

AKSPL 

203 

T=T+R 1 ( I J ) **2 

AKSPL 

• 

B=0. 

AKSPL 


PRINT 300 

akspl 

300 

FORMAT ( 1 H 0 »3SAMPLEa.8y , 3W ( I > a » 1 0 X * alU ( I)a) 

AKSPL- 


DO 204 1 = 1. K 

AKSPL 


UC=lvlU( I ) +NC ( I ) 

AKSPL 


PR 1 [Sj T 301, I,wm»UC 

AKSPL... 

301 

FORMAT (1H .3X»I1i7X»FA,0.7X»F5,0) 

akspl 

204 

B=B+<W(I)**2/UC ) 

AKSPL 


PK ItSiT 302* B , T 

AKSPL 

302 

FORMAT ( 1H0 i SB =S , F12 . p , 5X , 3T =S»F10*0) 

AKSPL 


WSCORE=(B/T )*FLOAT (N-l ) 

AKSPL 

C 


akspl 

C 

WScORE HAS cHI-SQUARE DISTRIBUTION WITH (K-l) f. 

AKSPL 

c 


AKSPL 


WS=wSCORE 

AKSPL 


XK-K-1 

akspl 


XM=WS/2. 

AKSPL 


IC=XK/2* 

-AKSPL 


SWS=SQRT( WS> 

akspl 

♦ 

EM=1./EXP<XM) 

AKSPL 


print 205 . wscore 

akspl 

205 

FORMAT (lhOf5WSCORE = F!,F7.3> 

AKSR 


Xh2=XK/2. 

AKSl 


IF ((XK2-FL0AT(IC) ).NE.O) GO To 500 

akspl 


SUM=0. 

akspl 


PROD=l. 

AKSPL 


DO 1 1=1, IC 

AKSPL 


IF ( I « GT • 1 ) GO TO 2 

AKSPL 


XI = 1 

AKSPl 


GO TO 3 

akspl 

2 

XI=I-1 

AKSPL 

3 

PROD=XI*PROD 

AKSPL 


TERM=XM**(I-l)/PROD 

AKSPL 

1 

SUm=SUm+TERM 

akspl 


cprob=sum*em 

AKSPL 


P=1 00 , +CPROB 

AKSPL 


IF (P.LT.0,1000) GO TO 1-0 

AKSPL 


PRINT 206, WSCORE , P 

AKSPL' 

206 

FORMAT (lH0»F7,3*a IS SIGNIFICANT. AT THE a.FS.l.o) PERCENT LEVELS ) 

akspl 


GO TO 1000 

AKSPL 

10 

P=0.10 

AKSPL- 


PRINT 12, WSCORE, P 

AKSPL 

12 

FORMAT(lHO«F7.3,a IS SIGNIFICANT WITH PROBABILITY LESS THAN a,F7 

,3AK$PL 

r -tr. 

1.3 PERCENT LEVELB ) 

AKSPL 


GO TO 1000 

AKSPL 

500 

GAMH=1 ,7724536509 

AKSPL 


TERM=SQRT(XM)/( 0.5*GAMH) 

AKSP' 


SUM=TEKM 

AKS| 


NR=(XK-3, )/2. 

aksS. 


IF(NR.EQ.O) GO TO 502 

AKSPL 


DO 501 1=1, NR 

AKSPL 
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XI = I AKSPL 

TERM=TERM*?.*XH/(2.*Xt+1« ) AKSPL 

501 SUM=SUM+TEKM AKSPL 

502 CHI SG = ( SUM* EM ) *100 . AKSPL. 

P2=100 * *2 » * ( 1 • -PROB ( SwP ) ) AKSPL 

P=P2+CHISG AKSPL 

IF (P,LT. 0.0005) GO 10 14 AKSPL 

PRINT 206. WSCORE ,P AKSPL 

GO TO 1000 AKSPL 

14 P=0.001 AKSPL 

PRINT 12. WSCORE' * P AKSPL 

1000 CONTINUE ' AKSPL 

RETURN AKSPL 

END AKSPL 

FUNCTION PROHtX) P RoB 

PROB 

this function rout inf computes p rob 

DISTRIRUUON FUImCHON(X) IF X GE 0 P«OB 

1 - DISTRIBUTION FUNCTION (X) IF X LT U PROP 

OF A SI. NORMAL VARIABLE USING APPROXIMATION 26.?. 19 P.932 PROP 

HANDBOOK of MATH. FUNCTIONS ■ P R °B 

DATA D1.D2. 0 3. 04 .05. 06/. 0 49867 3470. . 021 141 006 1 , . C L 32? 7b2b 3 . .00 003b PROB 
1003b. .0000488906, .0000053830/ PROF) 

IF (X) 20,30.40 P R0P 

30 PROB=0.5 P RQt3 

RETURN PK0R 

20 Xl = -X .I'ROB 

GU TO 50 • R DB 

40 X1=X P R OB 

50 A=1 ,+X 1* (Dl+Xl* (D2+X1* <D3+Xl*(04+Xl*(D5+Xl*UbJ ) ) ) ) PROB 

PROB=l ,-0.5*A**t-16) PROB 

60 CONTINUE P R0B 

return p r ob 

END PROB 

SUBROUTINE FFOUT t SI. S2* Nl» N2.FDAT. PKB ) FFOUT 

FDAT = (Sl/Ml ) / (S2/N2) FFOUT 

PRb= FISH(FUAT,N1,N2) FFOUT 

PKB = (1.0 - PRB ) *100 . FFOUT 

IF ( PRB - 0.1) 1.2,2 FFOUT 

1 PKB =0.1 FFOUT 

2 RE1URM FFOUT 

END FFOUT 

FUNCTION FISHtF.Nl.N2) FISH 

LOGICAL E1.E2.E3 FISH 

IF (Nl.GE.100.ANO.N2.Gf .100) GOTO 9 FISH 

FISH 

INITIALIZATION ANC SETTING OF LOGICAL SWITCHES TO .TRUE. IF FISH 

THE DEGREES OF ■FREEDOM ARE EVEN . FISH 

FISH 

El=. FALSE. FISH 

E2=. FALSE. FISH 

E3=. FALSE. fish 

IF ( MOD (N1.2)«EG»0) Elr.TRUE • FISH 

IFt MODt N 2*2) • EW . 0 ) E2=.TRUE. FISH 

X=N2/(N2+N1*F) FISH 

IF( .NOT. (E1.0R.E2) ) Go TO 5 FISH 

IF t El • AND. .NOT .E2 ) GO TO 1 FISH 

IF ( .NOT. El .A nD.E2 ) GO TO 2 FISH 

IFtNl.LE.N2) GO TO 1 FISH 

-FISH 
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initialization for second degree of freedom even and less than fish 

FIRST DEGREE OF FREEDOM IF IT TOO IS EVEN FISH 

FISH 

2 I=N1 FISH 

N1=U2 FISH 

N2=l F ISK 

X = 1 .G-X FiSH 

E3=.TRUE. FISH 

-■ FISH 

INITIALIZATION FOR FIRST DEGREE OF FREEDOM EVEN AND LESS THAN FISH 

SECONU DEGREE OF FREEDOM IF IT IS EVEN FISH 

FISH 

1 Y=1.0-X FISH 

FISH 

CALCULATION OF PROBABILITY FOR AT LEAST ONE DEGRtE OF FREEDOM EVE IMF ISH 

FISH 

FISH=0.0 FISH 

H = SQRT ( X**N2 ) FISH 

H=Nl/2-l FISH 

MCDC = M + 1 FISH 

DO 3 ICDC = 1 » MCDC FISH 

I - ICDC - 1 FISH 

F1SH=FISH+H FISH 

3 H=(H*Y*<n2+2.*I >)/<2.* I 1 + 1. >) FISH 

IF < L3 ) GO TO A FISH 

FISH 

ADJUST CALCULATED PROBABILITY IF ITS ONES COMPLEMENT WAS FISH 

calculated originally fish 

fish 

FISH=1. 0-FISH FISH 

return fish 

4 I=N1 FISH 

Nl=N2 FISH 

N2=I FISH 

return fish 

— — — FISH 

CALCULATION OF THE PROBABILITY FOR both DEGREES OF FREEDOM ODD FISH 
C — FISH 

5 Y=1.0-X FISH 

H=.b366l977*S&RT(X*Y> FISH 

FISH=*63O61977*AC0S<SqrT<X) > FISH 

IF(N2.EQ.1) GO TO 8 FISH 

M=N2-2 FISH 

DO 6 1=1, M, 2 FISH 

F ISH=F I SH+H fish 

6 H=h*X*(I+l)/(I+2) FISH 

8 IF ( N1 . EQ » 1 ) RETURN FISH 

H=H*N2 FISH 

M=Nl-2 FISH 

DO 7 I = 1 , M , 2 FISH 

FISH=F ISH-H FISH 

7 H=H*Y*(N2+I )/< 1+2 ) FISH 

RETURN FISH 

9 D1=N1 FISH 

D2=N2 FISH 

DT=(D1/D2)*F FISH 

DN=SQRT( <2.*D2-1. )*DT)-SqrT (2.+D1-1. ) FISH 

X=DN/SQRT(1,+DT) FISK 

FISH=PHI (X ) FISH 

RETURN FISH 
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END 

REAL FUNCTION PHItX) 



C 

C PHI CALCULATES the area UNDER The- normal curve 

c a transformation and j-fraction are used ( see method ) 

c 

•t ■ 



logical upper 

I F < X.LT .-13.27) GO TO 6 
IF(X.6T.8.5) GO TO 8 
IFIX.NE.0.01 GO TO 2 
PHI = 0 « 50 
RETURN 

2 UPPER = X . GT • 0 # 0 
7- (AbS(X)) 

Y = 5.6418953027302E-1* EXP(- Z*Z /2.E0) 

Z - Z /l. 414213562373] TO 
T=O.OEO 

IF < ABS ( Y/Z ) .GT . 0 , 0 ) T = Y/(2”6. 918367 56 18730E-6 
1+5. 00?5350900390E-l/( 7+1. 238679761 1409E-2+7. 726736 0B65876E-1 
2/( Z-4. 32639821 43 053E0 +7. 345628771 6055El/< Z + l . 5040 871 364290E1 
3+6.2e6b2456572356E0 /(Z+8.8971612130791E0 +4.9182171845874E1 
4/(2-2.510623006950 9E0 - 2 . 8225972942737E 0/ < Z-9 . 7597917308472E-1 
5+2 , 424421 3526 837E 1 / ( 7+4 , 80 06570125061E 0 +4. 9227653919002E-1 
6/IZ+7.6621170927661E0 +5 . 02656 l9l25786El/ ( Z-4 . 6529284964655 e0 
7 ))))>>>>)) 

T=T/2.E0 

IF (UPPER) GO TO 4 

PhI = T 

RETURN 

, 4 PHI =1 . OEO-T 

return 

6 PHI = 0.0 
RETURN 
8 PHI = 1.0 
RETURN 
END 

SUBROUTINE ERROR 

COMMON /SISBUF/ IBUF ( 35 > . IUR ( 125 l , IBL < 35 ) . IBUFF ( 30 ) .KEE.KEF . 

+ MFUNC. IFILE* IERR 

COMMON /FF/ FITRAl<35)tFITRA2(35),FITRA3(35),FITRA4(35) 

GO T0(100*200*3 00.400) IFILE 
100 1ERR = IFETCH(FITRA1.3LIRS) 

CALL STOREF(FITRA1.3LIRS.O) 

GO TO 500 

200 IERR = IFETCH(FITRA2.3LlRS) 

CALL STOREF ( FITKA2 . 3LTRS » 0 ) 

GO TO 500 

300 IERR = IFETCH(FITRA3.3LIRS) 

CALL STOREF (FITRA3. 3LlRS. 0 ) 

GO TO 500 

400 IERR = IFETCH(FITPA4.3l. IRS) 

CALL STOREF (FIT RA4.3LIRS.0) 

500 IF< IERR.EQ.O) RETURN 

PRINT 601. IFILE, IERR. KEE. KEF 
RETURN 

601 FORMAT ( * RA+.Il,* ERROR *.010,2110) 

END 


FISH 

PHI 

PHI 

PHI 

pH I 

pH I 

PHI 

PHI 

pH I 

PHI 

PHI 

PHI 

PHI 

PHI 

pH I 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

pH I 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

error 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

error 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 
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D.4 Control cards and modification deck for 
modifying program RETD to perform 
analysis of variance 
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NEWTON 


NASARET»CM20000»T1000. 
ACCOUNT * AN 1231 8 * . 

GET * RTREVE • 

GET! ANFILE) 

RFL .70000. 

modify.f.p=rtreve,lo=cet. 
SETCORE ( 0 ) 

FTN. I .L=0 .PL=50000 ,T . 

ATTACH .FTN 1 MSL/UN=LBl 2345* 
GET»FTNPLT/UI\I=AN120 0S. 

GET «RA1 . 

GET i R A2 . 

GET ♦ R A3 • 

GET ♦ RA4 • 

RFL *110000. 

MODE ( 1 ) 

load.lgo.ftnimsl.ftnplt . 

execute. 

PACK . ZZZZZEF • 

COPYSBF. ZZZZZEF. OUTPUT . 
EXIT . 

PACK » ZZZZZEF . 

COPYSBF. ZZZZZEF. OUTPUT. 


♦CREATE ANFILL 
♦IDENT APR24 
♦DECK STAT 

♦ D 75 

IVVC1)=IVV<2)=IVV(3)=0 
♦D 108 

IF ( IFIRST-ILAST ) 162* 16?. 166 
163 PRINT 401 

401 FORMAT ( ♦ SINGLE VALUF NOT ANALYZED^) 

♦DECK MESIG 

♦ D 6 

IF ( NFIRST-NLAST ) 10.10.90 

♦ident setwrk 

♦DECK KRUSWAL 

*° 1 SUBROUTINE KRUSWAL ( XlN. IDl * ID2IN.N. NCEN. JOP . K . NU« NC * IP? ) 


DIMENSION XIMlI.IDKl ) » I02IN ( 1 ) » NU (6) . NC t 6 ) ♦ XY ( 3 20 ) ♦ IU2 ( 120 ) 


♦ I 28 

C MOVE INCOMMING ARRAYS TO WORK ARRAYS 

DO 10 1 = 1 .N 
XY(I)=XIMI> 

ID2( I )=ID2IN( I> 

10 CONTINUE 
♦IDENT FIX 
♦DECK RETD 


PROGRAM RETD ( INPUT » OUTPUT * T ApE6 = OUTPUT ) 


♦DECK STAT 
♦MODNAML DEC10 
♦D 8.19 

♦ D 23 

♦ D 25 

♦ D 26 

IF ( ICASE.EQ.2 ) Go TO 998 
♦MODNAME STAT 
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*1 190 


IF ( I CASE • £Q • 4 ) 710*711 

71 0 IF ( NNN ( 2 ) . EQ . 1 ) GO TO 712 
GO TO 713 

712 NNNl=NNN(l)+l 
NSLTM1=J-1 

00 179 I=NNNl * NSLTM1 
179 X(I)=X(I+1) 

713 NNN ( 2 ) =NNN ( 3 ) 

NNN ( 3 ) =0 

711 CONTINUE 

♦ I 219 

P ( 3 I =0 
♦D 222*223 

PRINT 3600*IP2<1) *FVAL*PFFVAL 
3600 FORMAT (1H0*A8*F6.3i 23H IS SIGNIFICANT AT THE . Fb.lt 
*D 230 

PRINT 3600t IP2(2) tFVALtPRFVAL 
♦D 235 

PRINT 3600»IP2(3) »FVAl»PRFVAl 
*0 262 

L=NNN ( 1 ) +NNN ( 2 > + J 

♦ I 265 

NP=NNN ( 1)+NNN (3) 

NNN(2)=NNN(3) 

♦ I 267 

996 CONTINUE 
♦IDENT FIX2 
♦DECK STAT 

♦ I 155 

NN=NN-NNN(2) 

♦ I 165 

NN=NN-NNN(3) 

♦ D 247 

CALL KRUSWAL ( X « ID1 » ID? * NP » 0 » 1 . NT * NNN * LK * LK ) 

♦ 0 252 

IPI=2 

CALL KRUSWAL ( X » ID1 * ID.2 *NP * 0 ♦ 1 1 2 * NNN * LK t IP I ) 

♦ D 257 

IPI=3 

CALL KRUSWAL < X ( 1ST ) ♦ ID1 < 1ST > ♦ 102 < 1ST ) *NP*G * 1*2*NNN<2) « LK « I P I ) 
♦0 267 

IPI=3 

IF ( ICASE.EQ.4) IPI=2 

CALL KRUSWAL<X*ID1«ID2*NP*0*1*2* NNN * LK ♦ IP I ) 

♦DECK KRUSWAL 

♦ D 113 

CALL TW0SPL(R1 tID2tN.NU»NC»IP2) 

♦DECK TWOSPL 

♦ D 1 

SUBROUTINE TWOSPL ( R1 ♦ TF)2 * N ♦ NU * NC ♦ IP2 ) 

♦ D 8 

IF < ID2U) .EQ.IP2) GO TO 26 
♦IDENT XREDUC 
♦DECK RETD 

♦modname reduce 

♦ D 1 

COMMON XDAT A ( 150 ) , T(200) * IOPLOT* IFFF i KOT » «SK IP . LT * LM * LSTuP 

COMMON/HI TBLK /LHIT ( 150 ) *MDATE(150) *ISAV (16) ,MTVOL<150> 
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♦DECK RET 
♦MODNAME REDUCE 

♦D 1 

COMMON XDATA( 150 ) .T< 20 0 > « I OPLOT ♦ 1 FF F . KOT ♦ KSK IP , LT * l_M t LSTOP 

♦ D 2 

COMMON/HI TBLK/LHIT ( 1 50 ) * MDA Tt ( 1 5 0 > » ISA V (16) ,MTVOL (150) 

♦ D 3 

IF( IH.LE.151) GO TO 10 

♦ 0 4 

IF ( NSMP « LE ♦ 150 J GO To 35 
♦DECK SETCRI 

♦modmame keouce 
*D 1 

COMMON/HITBLK/LHIT ( 15n) .MDATE (150) .ISAV (16) ,MTVOL(15U> 

♦DECK KETRVE 
♦modname REDUCE 
♦D 1 

COMMON XDATA< 150 > <T (200 ) • IOPLOT ♦ IFFF ♦ KOT . KSK IP , LT t LM . LSTOP 

♦ D 2 

COMMON/HI TBLK/LHIT ( 150 ) iMDATE ( 150 ) .ISA V < 1 6 ) , RiT VOL ( 15 0 ) 

♦ D 3 

IF(M.GT.150) GO TO 110 
♦DECK STAT 
♦MODNAME REDUCE 

♦ D 1 

COMMON XDATA(150) ,T(200 ) , IOPLOt .IFFF , KOT ♦ K sK IP . LT * LM , L 3 TOP 

♦D 2 

COMMON/HITBLK/LHIT(15o) *MDATE ( 150 ) tISAV (16 ) »MTVQl<150) 

♦DECK OTCST 

♦modname reduce 

♦ D 1 

COMMON xDATAUSO) , T ( 20 0 >. IOPLOT , I FFF , KOT , KSK IP , LT t LM , LSTOP 
♦DECK STrLoT 

♦modname reduce 

♦ D 1 

COMMON XDAtA ( 150 ) , Tl200) » IOPLOT 1 IFFF . KO 7 » KsK IP . LT » LM , LsT^P 

♦ D 2 

COMMON/HI TDLK/LHIT (150) t MDATE ( 150 ) .ISAV (16) . mTV<jl<150) 

♦ident anovi 

♦DECK STAT 

♦ I 6 

COMMON Y(3,3,80),N(3«?l)tA(4«4),B(4,4),AP(3),Q(3) t w(3)tV(3)iWW(3) 
1 VV ( 3 ) . NSUMl ( 3 ) ♦ SUMY I < 7 >) ,NSUMj( 3) .SUmYjI 3) .SUmYIj( 3.3) , T AUHAT ( 3 ) . 
2 BETHAT(3)»ThAT(3 ) .RHaT(3) 

COMMON/ A0V/2NE/ 1 DEN ( fi ) , NAMET ♦ NaMEB ♦ I WT ♦ SUMSQX « T ftU ♦ MNSQT * FRaTIO . 

1 ILRR, ERROR .MNSQE.SST.MNSST.FSST, INT .TIN .TINT. FIM , ITHt .WlTHT, 

2 WIT»NsUM,SUMSGY»SUMSOT»BETA,MNSQBiFRATB*ERRORBiM\!SOREt SSBtMNSSB 

3 FSSB.BIN .BINT . F INB , PFR AT , pFSST , PFI NT , PF R ATB t PFSS.b , PF 1,JB 

♦ I 7 

REAL MNSSB.MNSST.MNSQR.MNSQBE. mnsqt. mnsqe 
dimension DEN ( 8 ) 

DIMENSION KOE ( 3 ) 

EXTERNAL TWOWT . T WO A VT , TWOAVB 

♦ I 12 

EQUIVALENCE (IDEN.DEN) 

♦MODNAME FIX 

♦ I 10 

ITOT=JTOT=3 

IF ( ICASE.L0.2.0R. ICASF.EQ.4 ) ITOT=2 
IB=LMAN ( 1 ) 
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Kl-0 

DO 699 IT=1i ITOT 
K=N(IT»IB)=NNN(IT> 
DO 702 I=1«K 
702 Y< IT » IB« I >=X < I+Kl ) 
K1=K+K1 
699 CONTINUE 
♦MODNAME FIX 
*1 20 

IF ( 16 • EQ • 3 ) 70 1 i 999 
701 MAXT=FAXB=3 

maxti=maxt+i 

I-IAXB1 = MAXB + 1 
NAMET=4HT1MF. 
NAHEF=5HASTKO 


IwT = l 

DENtl )=KSTUDY 
DEN(2)=KTEST 
IDEr-J ( 8 ) =3H ALL 

IF ( IC ASE «EQ • 2 ) IDEN < 6 ) =IP2 < 1 ) 
I F ( ICASE.EG.4) I DEN < 8 ) =IP2 ( 3 ) 
DO 703 J=1 ♦ JTOT 
□0 7G4 1=1 ♦ ITOT 


KK=N(I»J) 1X ..... 

PRINT 70b i ( Y (I»J»K)*K=1 »KK) 

705 FORMAT (F12.4 ) 

704 CONTINUE 
703 CONTINUE 

2 MAXB1) 

IF(IWT.LT.O) GO TO 999 

7,7 MrSmU////90 RANKED BEAN CONTRASTS < S-HETHOo) ON »•»<>• 

5 % S^.SJT.SliSSU eevel 

WRITE ( 6 i 798 ) IDEN 

cSl^SCHEFeIiTOT^TaShnT^IT.ITHT, ALPHA. KOE.WU.TNOAVT) 
C^LL^SCHEFE ( ITOT^t THAT^W IT « ITHT » ALPHA »KOE *WW • TWOHT ) 
CAL^ SCHEFEtJTCT^lETHATtylT-ITHT. ALPHA. ROE. VV.TW0A»B) 
CALL^SCHEFE t JTOT^BHAT tWlT »ITHT.ALPHA«KOL»VV»TW0HT> 


JOB DATE 
STUDYEACH 

DATE ALL 
type EACH 
test EACH 
END 
EOF 

JOB DATE 
TEST RANGE 


300 

3 

1 

436 


3300 

410 412 
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D.5 Analysis of Variance program as 
contained In file ANFILE 


PRECISING 


page blank. 


^OT FILMED 
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u u 


sift- lull '1 livE 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IN 


IN 


A N GV2 N t ( I AX T * MAX) i I ! 0 T t J T C’T * A * B * P » Q » f 1 * W t V « WW » V V « Y * 

A SUM I , SUI'-'YItNSimjtSlin JfSUMY IJ( rAUHATttfi. THAT* THAT 

E*BAT«SUNtu»MXT1 ♦MAX81 ) 


TWO-WAY ANALYSIS OF VARIANCE WITH UNEQUAL NUMBERS PER CELL 
rroEL 


Y(I«J*t\> = iitj + 1 A U ( I > + lCIMJ) + INTERACT iUM ( 1 * <j ) + 


i’ll 


uE.L ASSUMING ADrlTlVlIH 


m,J,K) = rti, + T A U ( I ) + btIMj) + LKPbk ( I , J , h ) 


KOUT1M AHUUI' ; .E I "TS 


IA- 

IN 

IN 

IN 


*>AX I 
i-- A X i i 

I TOT 
J1 C i 
A 
H 
I- 

u 

f\. 


V 

V *A 

V 

HSUi'H 
SUf' YJ 
MSI MJ 
SUMYJ 
SUMY I J 
TAUtiAT 
ELTkAT 
XI 

C GRiFiON 


OF Y » A » N » SUMY Iu 
OF Y»FIRST OF B 


r* a x r 
M AXT 
j": A X 0 
"1 A X T 

HOT 

JTOT 


JTC T 
JTOT 
ITOT 
ITOT 
HOT 
I TOT 
JTOT 


LFFECTS 
EFFECT s 


C 

IN 

IDF io 

c 

IN 

NAhLT 

c 

IN 

NAMED 

c 

IN 

IWT 


MAXIMUM FIRST ti I HENS ION 

1 AXIlMiN SECOND. DlMLNSI OH 

liUFFLR OF TAU EFFLCTS 
OOF t Eh OF p ETA EFFECTS 
MAXT F y |v| A y. T FORK ARkAY TAb 

RY MA> [• FORK ARRAY BETA 

WORN VECTOR 
WORK VECTOR 

F-Y MAxF' (ACTUAL I TOT BY JTOT) NUMBERS OF SAMPLES 
PEN CELL 

WEIGHTS OF IAU EFFECTS (SEl. IwT IN 
WEIGHTS OF BETA EFFECTS (SEE 1WT I N 
MAX U TCT i JTOT ) InORK VECTOR FOR WEIGHTS 
ITOT EY JTCT t.Y N { 1 , J ) ARRAY 01 LA I A 
VECTOR OF SO("«S OF 
VECTOR 01 SUMS OF 
VECTOR OF SUMS OF 
VECTOR OF SUMS OF 
BY JTOT ARRAY OF 
Vt C TOR OF ESTIMATES 
VECTOR OF ESTIMATES OF 
-1AX ( ITOT, JTOT) WORK VECTOR 
BLCCK A0V2r F ARGUMENTS 

11} LENGTH VECTOR CONTAINING AOV TABLE 1 IT L f . ( 40 ALPHA) 

2 LENGTH VECTOR CONTAINING TmE NAME OF THE TAO EFFECTS 
2 LENGTH vrrTOR CONTAINING THE NAME OF THE BETA EFFEC TSANOV 

weights w»v are to be i/itct and i/jroTt rlsp.anov 

W i V AaE TO BE 1/NSUNJ( I ) , 1/r.SUMI ( J) ,k£sP. 

WiV CONTAIN* ON CALL TO ANOvAPlvE * THE WEIGHTS 
BE USED 


AVIAUHAT = 
B*BC I HAT = 


COMMON ) 

COMMON) 


i-'UtJ) -- SUf-Lt ON 1 
Y ( 1 * J * K ) — SuP'LD ON K AND I 
N ( I ♦ J ) -- SUM L, ON J 

Y(I.J,K) -- SOI LD ON K AND J 
)UM OF Y ( I i J ♦ K ) -- SUITED ON K 
OF IAU EFFECTS 
bETA EFFLCTS 


At 10 
A NO 
A NO 
A NO 
A NO 
A NO 
A NO 
Au j0 

ERROR ( I * J * K ) A, NO 
A NO 
A NO 
AND 
A NO 
A NO 
A N 0 
A NO' 
A NO' 
A NO' 
A NO' 
A i -i 0 1 
A NO' 
ANO' 
A NO ' 
A NO I 
ANO) 
ANO\ 
A N0\ 
•ANO\ 
A V0\ 
ANOV 
ANOV 
ANOV 
ANOV 
A NO l 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
AnOV 


IS 


1 < 
2 * 
3 « 


IF 

IF 

IF 

TO 


THE REMAINING COME 0 N BLOCK VARIABLES ARE VARIABLFS CALCULATED 
Vt t. OF ThL TWO Al-JAl YSlS OF VARIANCE TABl.ES PRLPAREu BY 


IN 


ANOV 

ANOV 

ANOV 

ANOV 

ANOV 


AN0VA2 BANOV 

AOV TABLE ONE CALCULATES WITh THE TAU LFFECTS ADJUSTED FOR UNEQUALANOV 
(ELL NUMBERS. MfJpr.'T * f NSGE ♦ MNSST ARE TYPED REAL AND NOT INTEGEANOV 

«... ^ . ANOV 

v * D * F » S.S. PT.S. F-RATIO ANOV 

ANOV 
ANOV 
ANOV 
ANOV 


HU i FETA 
T AU ( AbJ. ) 


JTOT 


J TOT - 1 


SUMSOX 


TAU 


hMSGT 


-no- 


FRATIO 
OKlbriNAL Paul, 
OF POOR QUALITY 





oonoonooo 


c 

c 


FvO I NT ER AC T 1 0 tsi 


c 

t K h 0 R 

IF RK 

ERROR 

MNSGE 


c 

Nu INTERACTION 





c 

c 

TALI ( A E J * ) 

I TOT-1 

SST 

MUSS 1 

FSST 

o r 

1 1 j T F.' K ALT 1 ON 

I NT 

TIN 

T I iv 1 

FINT 

c 

t FPECT 





c 

c 

fc i T F: I M CELL 

JTHT 

fcT TUT 

WIT 



C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


E liF OK 
Tfjl AL 


t SO'"' 


sumsgy 


AUV 1 A 6 L L 1«0 CALCULATES wITH Tut LL|A lFFCCjs AI.JUSTLD FOR 
LiLLUUAL CELL NUMRFFS* KNS&b , MvisOGE , MNSSB ALL T Y F E D REAL 


sS . V . 

MU * T AU 

BETA (AUj.) 

LG 1 LITERAL 1 ION 

Flick 

i y 0 INTERACTION 

BETA (ADJ.) 

1 NT E RAC T 1 0 IV 
fc FFLCT 

Vy 1 T Ft X N CELL 
t KhOK 
1UTAL 


□ . F . 

no i 

jlOT-l 

I ERR 


S.S. 

SUMSGT 
LET A 

LRROHtD 


M . S . 

MMSciti 

mmsobf.. 


F -RATIO 


fkatb 


ITOT-I 

SSB 

HNS S(j 

F SSB 

I NT 

BIN 

F 1 1- 1 

FInB 

UhT 

v-ITh 1 

WIT 


f. SUM 

SUMSUY 




DIMENSION Y ( MA X T t KAXB « ! ) i N ( f'lA XT 1 1 ) , NsUMl < 1 ) ♦NSUMj 1 1 ) , SUMY 1 < 1 ) 

2 ,u( 1 ) , A(F AXT1 tl) « T a UHAT( 1 ) »Xl (Id, 1 » tSUMY 1 ) 

DIMENSION SU,V|Y1 jCf.AXT , 1 ) iREThAT < 1) ,P( 1 ) »B< MAXBli 1 ) 

UlML^S ION W ( 1 ) , V ( 1 ) « WD{1), VV<1) 

DIMENSION iULh(b) 

Dlf-tNSlON T H A T ( 1 ) ♦ BUAT(l) 

RlAl MNiSSb 
REAL MNSST 

HEAL nnsgb , mnsgbe 
RLAl MNSUT » MIMSGE 
DIME f\Sl OIL INIT«37> 

ELLIVAlEkCL ( IrIT ( 1 ) , SUHSOa ) 

CO KM GO / A0V2ME / I DEL * M/sME T « HaHEB , I fcT ♦ SUM SOX * T AU » MNSQ T* F R AT 10 * 

2 I ERR , ERROR , MNSGE » SST * FiNSST tFSST » INT i T I N » T I N T » 

3 FI M , I TN T * W 1 TUT , to 1 T » NbUM , SOMSGY » SUPSQT * BETA , 

A MNScB ♦ Fi< A Y b , EKROhh « MLS GEE , SSE t HiNlSSp , F SSB , B I K < 

tj B I |\iT , F I kF : - » PFR AT , I "F SST » F’F I nT * PF p ATB » PF’SSB , PFI |\|B 


DO 4 1=1,37 
4 IMI(I)=1' 

100f- FORMAT ( ////10X , Agio! -- 
GO TO (210 ,22^,240 ), IwT 


V'iElGFtTSaj/(lX»b020.7) ) 


ORIGINAL PAGE IS 
OF POOR QUALITY 


anov 

A N 0 V 
A MOV 
ANOV 
ANOV 
A IJOV/ 
A MOV 
A -\I0 V 
anov 

ANOV 
ANOV 
ANOV 
ANOV 
A NOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 

anov 
ANOV 
ANOV 
ANOV 
ANOV 
A NOV 
ANOV 
ANOV 
AflOV 
AMCV 

anov 

ANOV 

ANOV 

ANOV 

AiNOV 

aMo v 

AiNOV 

ANOV 

ANOV 

ANOV 

AINOV 

ANOV 

ANOV 

anov 

ANOV 

ANOV 

ANOV 

anov 

ANOV 

ANOV 

ANOV 

ANOV 

anov 

ANOV 

ANOV 

ANOV 

ANOV 

anov 

ANOV 

ANOV 

ANOV 



210 Wl=l./l-LGATCnOT) 

C 

c LG UAL ^lights 

c 

00 211 1 = 1 . ITOT 

211 Vm t 3 ) — Irif T 

*1 =1 ./FLOAT ( JTOT ) 

(J 0 21? J=1*JT0T 

212 \Z(J)=I<jT 
bO T 0 24 0 

C 

c F R 0 F 0 K rlOi'i A L. £ I G H T F 

C 

220 SSS=G. 

ub 222 1 = 1. HOT 
W 1 “■ u ♦ 

no £ ;i j=i»jioi 

221 Jl =in I + N( 1 1 J ) 

!m ( I ) =1 ./IwT 

222 SSS=SSS+ta d > 

S5S=1 ,/SSS 

00 225 1=1 1 HOT 
225 «’(1)=V.(I)*SSS 
SSS = G . 

Ob 224 J=i . JTOT 
W I =0 . 

00 223 1=1 » I TOT 

223 wT = «T+i\lU»J> 

\l l J ) =1 . /InT 

2 24 GS5 = SSS + V/ ( J ) 

SSS=3 ./SSS 

00 220 J= 1 i JTOT 
22b V(b)=V( J)*SSS 
GO TO 24 0 

24 0 rthlinbtlOOtt) MtfLTtU (1)«1 = 1«IT0T> 

VoKITC. (btlUOei) NAPE 13 ♦ ( V ( J ) « J = l» JTOT ) 

25 0 NSUM=0 

SUMj=0. 

supsly = o.o 

c 

C KCKM SUM OF SGUARES AMU SUM OF N 

C AND SU.-I OF N ANP Of- Y OVER. I 

DO 1 J = It JTOT 
imSUMIiJ) = 0 

suhn ( j) = o.o 

c 

00 1 I = 1. I TOT 
imSU/1 = NSUF + IMI. J) 

nsumkj) = i'isuM(j) + r (i. J) 

SUMY I J ( I , J) =0 . 

K = f; ( i . J) 

DO 1 IK = 1. K 

SUFSOY = SUPSOY + Y ( I , J. IK) * Yd. J. IK) 
SUMY I ( J ) = SUMY 1 ( J ) + Y(I. J. TK) 

1 COLT 1 LUO 

IoT0T=i1GT*JTCT 

1 Ivi T = I vJ 1 0 | -IToT-JTO r + 1 
lTMT = K.SUh-lJTOT 
1T0TP1 = ITOT + 1 
JT0TF1 = JTOT + 1 


ORIGINAL PAGE lS 
OF POOR QUALITY 


A NOV 
A MOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
A'JOv 
ANOV 
ANOv 
A 10’ 
ANO’ 
ANO' 
ANO' 
ANO' 
ANO' 
ANO' 
ANO 
ANO 
ANO 
ANO 
AMO 
A NO 
ANO 
ANO 
ANO 
ANO 
ANO 
ANO 
ANO 
ANO 
ANO 
ANO 
ANO 
AlJO 
ANO 
AMO 
ANO 
ANO 
ANO 
AMO 
ANO 
ANO 
AMO 
ANO 
ANO 

ano 

ANO 

ANC 

ANC 

ANC 

ANC 

ANC 

ANC 

ANC 

ANC 

ANC 

ANC 
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cj p o n n o o n 


ITCT1=IT0T-1 
JTOTl=jToT-l 
IERR=P.SUI«-ITPT-JTGT + 1 

CALCULATE AOV TABLL Foh ADJUSTED T*U EFFECTS 

F cRM SUM OF (M OVER J AML BEGIN TO FORD u TO FL USED 
I K SOLUTION FOK TAD 

DO 2 I = li n 01 

NSUKJ(l) = 0 

SUNYJ(I) =0.0 

Oil) = 0 * Lf 

Du 2 J = 1 * JTOT 

MSUP.J ( i ) — NSUK J ( I ) + f> ( I * U ) 

0(1) -0(1) + FLOAT (f\S< I ,j) ) * SUMY I ( j (/FLOAT (NSUKi ( j) > 

k = r. ( i * j ) 

DO 11 IK = 1 « F 

SUP Y 1 J ( I * J ) = SUM Y i J ( 1 « J ) + Y l 1 * J * 1 K > 

11 SUHYJd) = SUNYuU) + Ydi U, IK) 

SUMlj = SUMlj + SUf'iY I J ( T i J ) 

SONY I J( 1 , J)=SUKYI J ( 1 « J ) /FLOAT (K ) 

2 CUNTINUE 

SUN I J = SUIM J/FLOA T ( IMSUM ) 

^ K 1 1 1 (6,3000 ) SUMIJ 
WrITE ( 6 1 3 0 0 3 ) JViAMET 
UKlTtlbi 3001 ) ( SUFiY J ( j ) rl=l» ITOT ) 

WRITE ( 6* 3004 ) WH T 

WRI if. (6*3005) ( Nf-UNiJ < X) *1=1*1 1 0 T » 

WkITE (0,3003) NAKED 

WRITE ( 6* 3001 ) (SUFYI(J) *J=1*J)01 ) 

WRITE ( 6*3004) NAMED 
W K 1 1 1. ( b ♦ 3 0 0 S ) (NSUM1 ( J) . J=1»JT0I ) 

WRITE' (6,3002) 

DO 50 0 I = 1 » I T oT 

WRITE (6*3001) (SUNYiJ ( t* J) «J=1* JTOT) 

500 CONTINUE 
WR1TE(6,3006) 

00 501 1 = 1 * ITol 

WRITE (6*3005) (Ml * J) *J = 1* JTCl ) 

501 CONTINUE 

3000 FORMAT (olOhE AN E.ET a) t G 1 E • 7 ) 

3001 FORMAT ( IX* 10612.4) 

3002 FORMAT OOCELL ME'ANSa) 

3003 FORMAT ( 6)0 ci * A 6 * F SUKSgi 

3004 FOBMTOUa* A(?*U fvUN.BF R SLhSoi) 

3005 FuRM/T ( IX . 10112) 

3006 FORMAT ( ffloCELL KUMDERSa) 

CALCULATE WITHIN SlipS OF SQUARES 

WlThT=0. 

Ou 12 1 = 1 * HOT 
DO 12 J=1 * JTOT 
K=N ( J i J ) 

DO 12 1K=1*K 

12 W1ThT=WITHT + (Yn.J*IK)-SUNiYlJlI,J) )**2 
IF l lTHT.LE.0) CO TO 15 

IF (WlTHT.GT-0. ) GO TO H2 
WRITE (6*113) W1THT 


A MOV 
A MOV 
A MOV 
A MOV 
ANOV 
AIMOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
/■GUV 
>.;\UV 
ANOV 
ANOV 
ANOV 
A NOV 
ANOV 
ANOV 
ANOV 
ANOV 
A MOV 
ANOV 
A MOV 
ANOV 
ANOV 
AIMOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 

anov 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 


c 

c 

c 


113 FOKi-'iAl U>0 ***** KlTHIf- CELL LnKON IS Otblb.totd ... PRuLESSImG ABOt\ AMOV 


? TEL ***** c ) AUOV 

1 * T = “ 1 AMOV 

RtTuM AMOV 

112 hll =LI TH1 /FLOAT! II I-IT ) A P-! 0 V 

AMOV 

K-ixi- lhL I* A T K 1 X A Ai\*I AUGhEMT IT TO A STAR , i\ (mONS I .mGUL AR A i J 0 V 

I* A I K I X • 1 1 1 lit HULlCwTfC hANMEK a NOV 

A MOV 

MITuT X ITOT) 1 ( i T 0 T * 1 ) AMOV 

ASTAh = A MOV 

1 - I 3 X 1 1 OT > O(iXl) AMOV 

A K U V 

IS uo 3 li-. = 1* IloT A vOV 

L'C 3 IS = ]• II I T aMOV 

a ( i tv « is) ~ r« • c* a^mov 

Oo J = It Jli'l AMOV 

b A < 1 1. ♦ I i ) = A(lttlS) ■» f LPA T ( M Iix t u ) *f; ( 1 d t o ) ) / F L OA l ( NsUM ( J ) > AMOV 

A(li.tiS)=-A(lR«IS) A JC'V 

It l 1 1. .EG , IS > A ( I K t IS ) =F LOaT ( fSUhJ ( IR ) ) +m ( 1R t IS ) A JOV 

3 COi I I r- oE A • g 0 V 

A MOV 

a: -jov 

bo 7 I = It ITcT Atov 

All I v TP 1 1 I) = 1.0 a MOV 

A(Ii I TOT Pi) = 1*0 AMGV 

AMOV 

FINISH C A l C u L A T 1 0 r- OF u AMOV 

Oil) = - Q l I ) a MOV 

Xll Itl)=iv(I) a MOV 

7 C u i . T 1 N 0 E a NO V 

AMOV 


STORE 0 Il\! Air. TOTtl 1 ; T UTP1 ) 


A I i T L T P 1 * 1 TjTF ; 1) = O.C 

CALL MATRIX It VERsT Or SUf.ROuTlNt Of* A 
CALL r A T 1 1 v V ( A t ITCTP1, XI* 0, OETtMAXTi) 

calcllate TAU 


UO 6 I ~ It 

ITCT 

TALHAT(I) = 

A • 0 

Do S J — 1 * 

1TC1 

TAUtiA Til) = 

TAl hAT I I ) + A l 1 1 J ) * G ( u ) 

T AO = 0 . (j 

• 

DO 1 I = 1, 

11 C 1 

TAU = TAu + 

m uATin* g 1 1 ) 


AMOV 
AMOV 
AMOV 
AMOV 
AMOV 
AMOV 
AMOV 
AMOV 
A, JOV 
AMOV 
AMOV 
AMOV 
AMOV 
AMOV 
AMOV 
AMOV 
AMOV 


calculate sut of sr dares due to r-u aml deta, or. AD JiJSTED AMOV 

c, - cr v - - AIJOV 

Sui btvX - U . U AMOV 

Du 1C J = 1« dTlT AMOV 

10 SU-SCX = SUM SOX + SUPYKJ) * SUriYllJI /FLOAT < MSOM (u) ) AiJOV 

, , .... Ar-JOV 

Al, j f l AM SGuARE Dl E TO T Au Alv ,0v 

MfvSL T = TAL/FU ATI ITOT!) AMOV 

AMOV 
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non 


c calculate: SUM OF SQUARES DUE TO ERROR ANOV 

ERROR = SUMSQY - SUMSGX - TAu ANOV 

IF (ERROR. GT.O) GO TO 100 ANOV 

WKlTE<6*101) ERROR ANOV 

'101 FORMAT ( S)0 ***** ERROR SUM OR SQUARES IS S)tG15.6,a ... PROCESSING AANOV 
2B0KTED ***** d>) ANOV 

IiaT = -2 AiMOV 

RETURN ANOV 

100 MNSQE=ERROR/FLOAT( IERP) ANOV 

C ANOV 

C FROM WHICH AN F-RATlO WITH ANOV 

C (ITOT -1) AND (NSUMI - JTOT -ITOT + 1) ANOV 

C DEGREES OF FREEDOp ANOV 

C ANOV 

FRA TlO = MNSQT / MNSQE ANOV 

PFKAT = F I SH { F RATI 0 * I TOTl , I ERR ) ANOV 

WRITE (6,2009) IDEM ANOV 

WRITE ( 6 ♦ 2002) ANOV 

WHITE <bt20CA) NAMEB* JTOT.SUMSQX aNOV 

WKI TE (6*2005) NAME T » I TOTl » f A u * MNSQT . FRA TIC * PFRAT ANOV 

WHITE (6, 20f)fc) IERR, ERROR* MNSQE ANOV 

SSS = L>. ANOV 

SST=C. ' ANOV 

WT = 0 , ANOV 

DO 14 1=1, ITOT ANOV 

SSR=0. ANOV 

Ww ( I ) =0 . ANOV 

DO i3 J=1 idtOT ANOV 

SSR=SSR + V(J>*SUMYlJj j,J) ANOV 

13 WW< I )=WW< I ) + v( J)*V(J)/FL0A T (N(I*J) ) ANOV 

Wik< D=l./wW(I > ANOV 

WT=WT + WW(I) ANOV 

SSS=SSS + WW ( I ) *SSR ANOV 

SSTrSST + WW( I )*SSR*SSR ANOV 

14 THAT (I )=SSR-SUM1J ANOV 

SST=SST - SSS*SSS/WT ANOV 

MI\jSST = SST/FLOAT ( IToTl ) ANOV 

IF( ITHT.LE.O) GO TO 16 ANoV 

FSST=MNSST/WiT ANOV 

PFSST = F I$H ( F SST * I TOTl « I THT ) ANOV 

16 WKl TE. ( 6 , 20 14 ) NAME T * I TOTl ♦ SST * MNssT ♦ FssT * FF ssT ANOV 

T 1 f\j=E RROR“ W I THT ANOV 

T1NT=TIN/FL0aT( INI ) A NOV 

IF < ITHT.lE.O) GO TO 17 ANOV 

F1M=TINT/WIT ANOV 

J PF 1 KT = FISH (PINT , I NT , ITHT ) ANOV 

17 WRITE(6*2012) INT*TIN,TINT»F1NT»PFINT ANoV 

WR I TE ( 6 , 20 13 ) I ThT * W IThT « W IT ANOV 

WRITE (6, 2003) NSUM, sUMSQY ANOV 

WRITE ( 6, 2016 ) NAMiET, (TAUHAT ( I ) , 1 = 1 , ITOT ) ANOV 

WRITE (6*2011) NAMET,(THAT(I)*I=l*IToT) ANOV 

WRITE (6*2010) NAMET.OET ANOV 

ANOV 

CALCULATE AOV TABLE FoF ADJUSTED BETA EFFECTS ANOV 

ANOV 

DU S3 IR= l*JTOT ANqV 

DO 53 IS = 1,JTGT ANOV 

B ( I R * I S ) = 0 . ANOV 

DO 55 J= 1* ITOT ANOV 

55 B(IK*IS) = B ( IR * IS ) + FLOAT ( N ( J , IR ) *N ( J * IS ) ) / FLOAT ( NSUiVJ ( J ) ) ANOV 
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B(IK.IS) = -B(1R,IS> ArJ0V 

IF( I R • E Q « IS) B(IR»IS) s FLOAT ( NSUMI ( IR ) ) + b(IR.lS) ANOV 

53 CONTINUE AN0V 

DO 5? J= 1 » JT07 ANOV 

P(J) = 0. AW0V 

DO 52 1 = l.lTcT AiXi0V 

P(J| = p(j> + FLOAT ( N ( I *U ) > * SUMYU< I ) /F LC AT ( NSUpfl J C 1 ) ) ANOV 

52 CGM1NUE AN0V 

DO 57 J = l»JTOT AiVi0V 

B(J10TP1,J> = 1. AN0V 

B(JtJTOTH) = 1. AfJ0V 

c A MOV 

C FINISH CALCULATION OF P ANOV 

R(J) = SUHTI(J) - P(J) A,y *OV 

XHj,l)=PlOl Al ' ,0V 

57 CONTINUE ANOV 

btoTCTPl »JlOTPl ) = 0. ANOV 

c A NOV 

C L Al.L MATRIX INVERSION SUBRuUl INF. ON B ANOV 

c . ANOV 

CALL t ATINVU3. JTOTP1 * >. 1 ♦ 0 » DET .MAXB1 ) ANOV 

c A MOV 

C CALCULATE PE T A A NOV 

c ANOV 

DO 56 I = ItjTOT ANOV 

bEThAT(I) = 0. ANOV 

DO 58 J = 1 1 J T 0 T A^OV 

56 BLTuAT(I) = PET HAT ( I ) + R(I*J)*f<J> ANOV 

C ANOV 

BLlA = 0. ANOV 

DO 59 J = ItjTOT ANOV 

59 BETA = BETA + pETHATl J)*IM J> ANOV 

c ANOV 

C CALCULATE SUN CF SQUARES DUE TO flU AND T Alj , UN AD JUS 1 ED ANOV 

c ANOV 

SUMSCT = 0. ANOV 

DO 60 I = 1 * ITOT ANOV 

60 SUMSGT = SUilSQT + SUMYJ(I) * SUMYJ(I) /R L 0 AT < NSUM J ( I ) ) ANOV 

C ANOV 

C CALCULATE SUM OF squares DUE TO ERROR ANOV 

ERROR6 = SUMSGY - SUMSCT - BLTA ANOV 

C ANOV 

C AND MEAN SQUARE DUE To BETA ANOV 

MNSoB = BETA/FLOAT (JToTl ) ANOV 

C ANOV 

C AND DUE TO ERROR ANOV 

IFIEKRORB.GT.O. > 00 TO 160 ANOV 

wRiTE (otlOl) LhKCRB ' ANOV 

lcT=-3 ANOV 

RETURN ANOV 

160 Hi\iSOPE=ERRCRb/FLOAT( IFI-R) ANOV 

C ANOV 

C AND F-RATIO ANOV 

FRATU = MIVSG8 / hNSQpt AN0V 

PFRaTB = FISH(FKATBt JToTltlEKR) ANOV 

QK I TE. (6*2009) IDEM ANOV 

wkITN ( b*20C2) ANOV 

QRl TC ( 6* 2004 ) NAMET. iToTtSURSOT ANOV 

i-KlTE (6.2005) f AMEB. JTOTl .BETA.rtNSuB.FKATt *PFRA1 D ANOV 

^KITE (6.20C 6) 1 ERR . ERh ORB * MNSwBE ANOV 
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W 1 = u • 

SSR=0 . 

SSS = 0 . 

Du 64 J= 1 ,JT 0 T 
SSR = G . 

VV( J)=0. 

DO 63 1 = 1 , ITOT 

SSK=SSR + SUMYIJ( 1 « J)*W( I ) 

63 VV ( J ) =VV ( J ) + W ( I ) *W ( I ) /FLOAT ( M ( I , J > ) 

VV< J)=1./VV ( J) 

WT = wT + VV(J) 

SSS=SSS + V V ( J ) * S S R 
SSB=SSd + VV{J>*SSK»SSR 

64 13HAT ( J ) =SSR-SOMI J 
SSt>=SS6-SSS*SSS/Wl 
MR.SSp = SSb/KLOAT ( jT oTl ) 

IF ( n HI .LE. 0 ) to It 66 
F SSB=MnSSB/W IT 

PFSSt' = F ISHtFSSB* JT0T1 » ITHT ) 

66 WRITE < b, 2014 ) (v AMEB , JTO T 1 ♦ SSB * MNsSfr* FSSU » PFSSB 
bIl\=ERK0R6-WlTF*T 
BIiVT=BIN/FLOaT ( INT > 

IF ( lTHT.Lt".0 ) GO TO 6? 

FlNb=RINT/WlT 


AiMOV 
flNOV 
ANOV 
A NOV 

anov 

ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
A N 0 V 
ANOV 
A I'JOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
AIjO V 
ANOV 
ANOV 


PhlNP = F 1 SH ( F I im 0 t I NT i 1 TE‘T ) 

65 WRITE: ( 6 * 2012 ) 1 ,jT » B IN * B U|T , F I \\Q , pF I |\jB 

WHITE ( 6 * 2 C 1 3 ) 1 ThT , W IThT . W I T 
WRITE ( 6 « 2003 ) NSUM.SUMSGY 
W R 1 |F ( 6 « 2 (jl 6 ) NAME B* (BETHAT ( J) * J = l»OTOT> 

WRl TL < 6,2011 ) AAMEB, (PHAT ( J) , j=l, jToT) 

WRITE ( 6 . 2010 ) MMEB*DET 
RETURN 

2 q q 2 FORMAT l So<D* 4 qX * ^UNBALANCED TWO-WAY ANALYSIS OF VARIANCES/// 

21 H , lflx. 2 HSV, ISx. 2 HDF, 19 X , 2 EiSS, 19 X . 2 HHS, 20 x. 1 HF . 
317 X.&PKOB F a) ) 

2003 pORKAT (IhO, lOX. 5 hTCTAL., 20 X. I&, l 5 X. Gib. 7 ) 

2004 FORMAT ( 1 H 0 * 1 OX » 5 MU ♦ S. A ft * 1 3 X . I 5 * 1 5 X « G 1 j • 7 / 1 1 X » ol ( UNAD JUSI ED ) a) ) 

2005 FORMAT* 1H0 ,10x. A6,S ( AD J . ) "> « 1 Ox . 1 5 . 15x . 3 ( G15 . 7 . 5 X ) . G 15 . 7 

? / 1 IX » Si ASSUME ADDlTlVEol) 

20 06 FORMAT (lhO. IOX.SeFRORS* 20 X. 15 * 15 X. 2 ( 615 . 7 , 5 X)/ux. a ADDITIVES) 

2009 FORMAT ( lHl ////////// 30 X» 6 ^lU) 

2 010 Format (/////, IX, AB.s EFFECT MATRIX DETERMINANT = oi.G 15 . 7 J 

2011 FORMAT T ////1 ox, SEST I HATES Of cu , AS.cfl EFFECTSa}/ ( 1 X , 6 G 2 0 . 7 ) ) 

2012 FORMAT ( 1 ETO, 10 X to: INTERACT I ONN. 14 X, 1 5 . 15 X ♦ 3 ( 615 . 7 , 5 X ) , 615 . 7 ) 

2013 FORMAT l IhO . 10 X .oiWlTHIH CELL ERRORS , 6 X , I b , 15 X , 2 ( 615 , 7 , 5 X ) ) 

2 q 14 FORMAT ( 1 H 0*1 OX* A&*S(AOiJ. )u)*ilX* 15 , 15 X, 3 ( 615 . 7 , 5 x),Gl 5»7 

2 /llX.a(WLlGHTED)F') 


ANOV 

ANOV 

A"»OV 

ANOV 

AimOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

anov 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 

ANOV 


2016 FORMAT (//// 1 OX ♦ diF.ST IMaTES OF oj , AB*al E.FFECTS ASSUMING NO INTEraCTaNOV 


2IOMS/ ( IX, bG20 .7 ) ) ANOV 

ElxjU ANOV 

SUBROUTINE MAT I NV < A , N , P * M , DE TERM , MAX ) MATV 

D 1 MENS I ON IPIVOT ( 21 ) , A(MAX» 10), BI10, 1), I(\iDEy,(2l, 2>, MATV 

2 PIV0T(21) MATV 

EUUIVALENCE ( I (<OW , JROW ) » ( I CuLUM » JCoLUM ) » (AMAX, T» SWAP) MATV 

INITIALIZATION MATV 

10 DET ERM = 1 • 0 MATV 

15 DO 20 J=1,N MATV 

20 IPIVOT ( J ) =0 MATV 

30 DO 550 1=1, N MATV 

SEAKCEi FOR PIVOT ELEMENT MATV 
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40 A i“i A X — 0 . 0 
45 DU 105 J=liN 

50 IF ( IPIVGT < J > -1 ) 6 Cl , i05* 60 
60 00 100 K= 1,N 

70 IF < IPIVOT < K )-l ) 80, 1 00 , 740 
8 0 IF ( AF S ( AKAX ) - AF S ( A ( J » K ) ) )S5»100,100 

85 lKOw=J 
90 ICOLUM=K 
95 Ah A x= A t J , K ) 

, 100 CONTINUE 
105 CONTINUE 

110 IPIVOT { ICOLUM )= IPIVGT ( iCCLUr'D+l 
; INTERCHANGE ROWS TO PlJT PIV°T ELEM tN 1 ON DIAGONAL 

130 IF ( IROW-ICOLOh) 140, 260, 140 
140 Dt.TtRM=-BETERM 
15G UO 2 P 0 L = 1 ♦ N 
160 SwAP = A ( IKOU ,L) 

170 A < I KOW , L > =A ( ICOLUF , L ) 

200 A ( ICOLUM, L ) =SWAP 
205 lF(h) 260, 260, 210 
210 DO 250 L=lt rt 
220 SwAP=6 ( IROW,L ) 

230 B l I ROW , L ) =B ( ICOLUM « L ) 

250 Q( ICOLUM, L>=SWAP 

260 INDEX (1,1 )=IROW 

270 INDEX ( I*2)=IC0LUM 

310 P1VOT(I)=A(ICOLUM,ICO| UM) 

320 DLTERM=UET£RM* PIVOT ( I ) 

C DIVIDE PIvOT ROW BY PIVOT LlEmENT 

330 A( ICOLUM* 1COLUM)=1.0 
juo DU 350 L = 1*N 

350 A ( ICOLUM , L ) =A ( ICOLUM , L ) /PIVOT { I ) 

355 IF(H) 380, 380, 360 
360 DO 370 L=1*M 

370 bClC0LUM,U)=BClC0LUFI,L ) /PIVOT ( I ) 

C REDUCE NON-PlVOT ROWS 

380 DO 550 L1=1*N 
390 IF(Ll-ICOLUM) 400, 550, 400 
400 T=A(L1, ICULUM) 

420 A(Ll,lCOLUh)=0,O 
430 DO 450 L = 1 » N 

450 A<L1 ,L )=A CL1 , L ) -A ( I COL uM*L) *T 
455 IF<H) 550, 550, 460 
460 DO 500 L=1»M 

5 00 B U-l »L > =B (LI »L ) -B ( ICOI UM ,L > *T 
550 CONTINUE 

c INTERCHANGE COLUMNS 

600 DO 710 1=1, N 
610 L=N+1-I 

620 IF ( INDEX ( L » 1 ) -INDEX (L » 2 ) ) 630, 710, 630 
630 JROW = INDEX (L,l) 

640 JC0LU«=IN0EX(L,2) 

650 DO 705 K=1,N 
660 SWAF’ = A ( K » JROW ) 

670 A(K, JRUW)=A(K, JCOLUM) 

700 A(K, JC0LUM>=SWAP 
705 CONTINUE 
710 CONTINUE 
740 RETURN 
END 


matv 

MAT V 

matv 

MATV 
MATV 
MATV 
MATV 
NAT V 
F ATV 
MATV 
MATV 
MATV 
MATV 
i“i AT V 
matv 

MATV 

matv 

matv 

H A T V 
MATV 
MATV 
MATV 
MATV 
MATV 
MATV 

matv 

MATV 

.MATV 

matv 

matv 

MATV 

matv 

matv 

matv 

MATV 

MATV 

MATV 

MATV 

MATV 

MATV 

MATV 

MATV 

MATV 

MATV 

MATV 

MATV 

matv 

MATV 

MATV 

MATV 

MATV 

matv 

matv 

matv 

matv 

matv 

matv 

MATV 

MATV 

matv 
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noon on on 


c 


c 


c 


FUNCTION TWO AVI ( EP*:S * JSUB ♦ M2 * ALPHA t W t 1 1 t 1 S ) 

COMMON DUMi<357) tY(729) tA(4t4)tQ(4t4) 

TWOAVT = SGRT ( EMS* JSUB*F I SHIN < ALPhA t JSUBtlM2 )*<A(IIiII>-2t*A(IItIS> 
2 +A( ISt IS) ) ) 

RETURN 

END 

FUNCTION TWGAVB < EMSt Jf l;Bt N2» ALPHA t Ut 1 1 1 IS) 

COMMON DuM< 357) .Y (729) t A ( 4 t 4 ) t B l 4 i 4 ) 

T WO A VB -SORT < EMS* JSUB*F T SH I N < AlPHA tJSUBtN2)*(B(II«II)-2.*B(IItIS> 
2 + B ( I S 1 1 S ) ) ) 

RLT URN 

L i\i 0 

FUNCTION TWOWT (EMSt JSl;8tN2t ALPHA tW tilt IS) 

DIMENSION W(l) 

TimCfliT = y(jR T ( t MS* JSUB*F I pHI N ( ALPHA ♦ JSUB t N2 ) * ( 1 * / W ( I i ) + 1./W(IS))> 
K t. T U R N 

El\iL 

SUBROUTINE SCHEFE (KfTMF Ajv)S t EMS t f\,2 1 ALPHA t KCE » Wi t FUUM ) 

SLl >EF F 7 E;ltS CONTRASTS FOR SIGNIFICANT DIFFERENCES IN MEANS 


K=tMUHBER OF p-sEAnS To BE tfSTED TmEANSJsVECTGR OF rEAMS TO BE TESTED SCHEFE 
LMS = LM<GR MEAN SQUARE (DENOMINATOR OF F TEST) SCHEFl 

M2 =lRROR DEGREES OF FREEDOM SCHEFE 

FOUrt IS A DUMMY EXTERNALLY DEFINED FUNCTION T^ CALCULATE CONTRAST SCHETE 
FOR STANDARD OUTPUT <k«LE.10) ALL MEANS HAVING 1 HE SAME LINE UNDER THESCHEFE 

ST aT 1ST AC ALLY THE Sa«F. SCHEFE 

OIHlNSION TMl'AMS (K ) t PR I NT (20 ) t KOe ( 1 ) tW ( 1 ) SCHEFE 

DATA BLANK /fc,H /,XL1NL / fa HXXXXXX / SCHEFE 

j save 2=0 schefe 

rank isLMmS FROM LUW TO HIGH SCHEFE 

CALL ORULRMtTMLANStKtKOE) SCHEFE 

WKlfE(6tbl> (KOE ( I ) t 1=1 th > SCHEFE 

51 FORHATUI a),10(6XtI2t4>: ) ) SCHEFE 

WkI Tt ( b t b3 ) ( Tf'iE.ANS ( I ) t I = 1 ♦ K ) SCHEFE 

53 FORMAT (IX 1 1 0 G 1 2 . t ) SCHEFE 

DO COMPARISONS SCHEl-E 

IS 1 l)P=K SCHEFE 

25 ISM1=1 STOP-1 SCHEFE 

DU 24 I = 1 1 2 0 SCHEFE 

24 PRINT ( 1 ) =BLANK SCHEFE 

00 30 1 = 1 1 1 SMI SCHEFE 

ISAVt=I SCHEFE 

jSUq=ISM1-I+1 SCHEFE 

29 IF( ISAVE2.EQ.I ) Gq TO 31 SCHEFE 

RANGE = TMEANS ( ISTOP ) -TMEANS ( 1 ) SCHEFE 

1 1 = R 0 E ( 1 ) SCHEFE 

IS=KC>H( IS TOP) SCHEFE 

S = F JUMHF.hSt JSUBtM2t ALPHAtki-lt H t IS) SCHEFE 

IF(RA*RGE-S) 34t34t30 SCHEFE 

30 CONTINUE SCHEFE 

31 1 STOP = I STOP-1 SCHEFE 

IF( ISTOP.EG.l )G0 TO 99 SCHEFE 

60 TO 25 SCHEFE 

34 IF(K.LE»10) Go TO 35 SCHEFE 

WKl Tt ( b t 33 ) ALPHA t ( THE ANS ( KK.K > t KKK=1SAVE t ISTUP > SCHEFE 

33 FORMAT ( aiO THE FOLLOWING MEANS ARE STATISTICALLY THE SAME AT THE »SCHEFE 

2 tF5»3tti) ALPHA LFVELa) t / 1 ( 1 OG 12 1 6 > ) SCHEFE 

GO TC 39 SCHEFE 

35 DO 37 I=lSAVE t I STOP SCHEFE 


FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

FUNCTS 

SCHEFE 

SCHEFE 

SCHEFE 

SCHEFE 
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non non non non noon 


11 = 2*1 

PR Ii\,T ( 1 1 -1 ) = XLINE 
37 PR1NTUI) = XLINE 

SPRITE <6« 52 > (PRlNT(KK) ,RK = lt20> 
38 IK ISAVE.EG.DGO TO 99 
ISAVE2=ISAVE 
GO TO 31 
99 RLTUFN 

52 format ( a 3.20 AM 

END 

SUBROUTINE OROERM(X.M.KOE) 
u I ME NS TON X(N> , KOE ( r- > 

* 1=2 

ij U 60 I = 

60 i\0L ( I ) =1 
4 uO 99 I-Kl . NN 

lMxn.Li.xii-in Goto 7b 

99 COimTINUE 
RlTURT 

76 DO 62 K= 1»NN 

JF< M I ) .LT.X(K)) GO TO &4 
62 CONTINUE 
84 Z=X ( I ) 

KK=KOE ( 1 ) 

11 = 1-1 

LJU 6bK J=K » 1 1 

J=K+I1-KJ 

KOE l J+l )=KOE( J) 

86 X< J+l >=X ( J) 

X ( K ) ~Z 
KUL (K > =KK 
K1=I+1 

IMKl.GT.rMfJ) RETURN 

GOTO 4 

Erl) 

RJuCT I Of* F IShIi\(( ALPHA . N1 tR2 ) 


CALCULATES ThE INVERSE 3F3 VALUE GIVER THE CONFIDENCE COEFFICIENT 

alpha and the degrees of freedom < n ) . 


Y1=N1 

Y 2 = i.2 


adjust for degrees of freedom equal to l 


IF < Hi. Ed. 1) Yl=2 
IF ( R2 . EQ • 1 ) Y 2=2 


CALL phinv to get inverse normal value uf 1. -alpha 


x=PHIi\JV { 1 .-ALPHA ) 


COMPUTE LAMDA VALUE 


Y=< X**2-3. >/6. 
IC = 0 


COMPUTE THE UilTlAL APPROXIMATION TO THE INVERSE SF3 FUNCTION 


SCHEME 

SCHEFE 

SCHEFE 

SCHEFE 

SCHEFE 

SCHEFE 

SCHEFE 

SCHEFE 

SCHEFE 

SCHEFE 

order 

OR DEK 

order 

order 

order 

order 

order 

order 

order 

order 

order 

ORDER 

ORDER 

order 

ORDER 

ORDER 

ORDER 

.ORDER 

ORDER 

ORDER 

ORDER 

ORDER 

ORDER 

order 

order 

order 

FISH1N 

fishin 

fishin 

fishin 

•fishin 

fishin 

fishin 

■fishin 

fishin 

• fishin 

FISHIN 

FISHIN 

•FISHIN 

fishin 

■FISHIN 

FISHIN 

■fishin 

FISHIN 

•FISHIN 

FISHIN 

FISHIN 

•FISHIN 

FISHIN 

•FISHIN 
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ooo nnonnnnno nno noon 


Yl=l./(Yl-l. ) 

Y2 = 1./(Y2-1. ) 
h=2./ < Y1 + Y2 ) 

X=X*SCRT (H+ Y )/H- ( Yl^Y?) *( Y + &./6.^2«/ < 3.*H) ) 
x = E a F < 2 • * a ) 


fishin 

fishin 

fishin 

fishin 

fishin 

FISHIN 


COMPUTE THE CONSTANT TO 1h£ «*Ful UlST R 16UT IQIV * TEST ING FOR All AND/OR N2F I SHI M 
ODD Oi\ F V E t'v > FISHIN 

- — — - — < fishin 


6=1. FISHIN 

Isl -p . FISHIN 

IMliOt'ia.2) .EQ.O) Go TO 1 FISHIN 

6=1.7724539 FISHIN 

16 3=1 F ISHI'J 

1 162=2 FISHIN 

IF <i-iGr h\i2»2 ) .tu.O) 60 TO 2 FISHIN 

6-0*3*7724539 FISHIN 

I,,2 = l " FISHIN 

2 16.3=2 FISHIN 

IFlrtGt (i\il + iSi2«2) *EC.O) GO TO 3 FlShliJ 

6=0/3.7724539 F XSHI*-I 

Ib3=] FISHIN 

3 IF ( ( 1B1 + IB2 ) .ME *2) G=2.*G FlSHIN 

IF(CM+N2».lE*3) GO TO * FISHIN 

N6=ul+N2-2-l63 FISHIN 

iv 01 = NO + 1 FISHIN 

DU H 1 1 = 1 f M'l « 2 FISHIN 

I = II - 1 FISHIN 

IF U IB1 +1 ) *LE* (ftil-2 > ) G=6+‘Ibl+l> FISHIN 

if C ( 1B2 + 1 ) *LE* (n 2“2) ) G?6*(Ib2+I) FISHIN 

4 6=0/(163+1) FISHIN 

- — — * - fishin 

001460116 THE VALUE OF FIsHIM FlSHIN 

...... FISHIM 

'5 Y2 = ij2/ (f^ + Hl + X ) FISHIN 

Yl=l.-Y2 FISHIN 

Y = l. + ( 6* ( 1 ,-ALPhA-fISh( x «F 1 «N2 ) > >/SURT ( T 1* *N1*Y 2**142 ) FlSHIN 

FISH1N=X*Y FISHIN 

------ -----------FlsHIN 

ir F I Si i Ip IS NEGATIVE , RESET FISHIN TO *S’*lA6T AHHkoxIHAI lotjtx) • FISHIN 

-- ---- --F.I SH IN 

IF(Y.LT.O.) FlSHIN=.f>*X fishin 

------ FISHIN 

IF THE ABSOLUTE VALUE OF the DIFFERENCE Is LESS 1 H A (si .5E-P« RETURN FlsHIN 
, : — FISHIN 

IF < AbS ( X/F lSHlM-1 * ) *LT . ( *5E“b ) ) .GO TO 7 FISHIN 

F 1 Sill N 

Ip ThE HFLAT1VE VALUE Of THF DIFFERENCE IS LE$G THAN .'3E-6. RETURN pISHlN 

FISHIN 

IF t AL S( X-F1SHIN) *LT. ( .FE-b ) ) GO To 7 FISHIN 

IO^U+1 FISHIN 

IF < 1C . GT .100) RETURN FISHIN 

FISHIN 

SET THL APPROXIMATION EQUAL TO FISHIN Af-JD CONTINUE TO ITERATE FISHIN 

T — FISHIN 

X=FIShlN FISHIN 

GO TO 3 FISHIN 

7 RETURN fishin 

tW D FISHIN 

FUNCTION PHIf-i'V ( P ) PHInV 



IF ( P , EG , 1 . 0 ) GO TO 98 PHINV 

IF ( P .EG. 0 • 0 ) GO TO 9? pHINv 

IF<P .GT. 1.0) GO TO 68 P H I n V 

IF ( P .LT. 0.0) GO TO 38 PHINJ 

K = 1 PHInI 

IF IP , GT . C . 5 ) GO TO 47 PHINV 

6 T3=SGRT(-2.G+ALCG(P> ) : PHINV 

T4P=2.5155l7+.eG2653*T3+.01G328*T3*T3 pHItVV 

T5P=1 .0+1. 432788*T3+. 189269* T3*T3+. 00* 3V0*T3*T3*T3 pHlNV 

XT -T3-T4P/T 5P PHINV 

XI =-XT PHINV 

13 DO 63 1=1*100 PHINV 

PHP = EXP ( -0 • 5*XT*XT ) PHINV 

PT s PHI (XT ) PHINV 

IF t ARS ( P-PI ) .LT. P*4.0E-8)Gp To 99 PHINV 

l - (F-PT >*2.50662827 / PHP PHINV 

XI = XT + 2 PHINV 

53 CONTINUE - PHINV 

Go Tu 99 PHINV 

47 P = 1.0 - P puINV 

K = 2 • PHINV 

GO TO 8 PHINV 

99 GO TO ( 26 t 27 ) « K PHINV 

26 PHlNV = XT PHINV 

RETURN PHINV 

27 PHINV = -XT PHINV 

P = 1.0 - P PHINV 

RETURN ’• PHINV 

9ft PHINV = I.OE+38 PHINV 

RLl URN PHINJ 

97 PHInV = -I.OE+38 PHIN™ 

RETURN PHINV 

6ft WkITE<6*10) P PHINV 

10 FORi v |At ( 1H0 « 5x * 2 9H ARGUMENT NOT A PROBABILITY s «5X»E14.7 ) PHINV 

RETURN PHINV 

END PHINV 
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D.6 Program RETD as modified to perform 
the basic analysts plus an analysis 
of variance 
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n n n n n 


c 

c 


c 

c 

c 


c 


c 

c 

c 


c 


PROGRAM KLTLK INPUT i OUTPUT ♦ TApt-fc-GUTPUT ) FIX 

MAIN PROG RAH Rf-TD 

COMMON XliATA<150) .T<2f)0) » lOl'LOT .IFF P » KOI » KSKIP ♦ I T .LM.LSTOP XREDUC 

COP HOP /lNPCX/lHPX < IRA ) * INDX1 ( 12 4 ) * IPjDX2 ( 24b) , 114 X 3 (IRA) RETLjg 

CGht'-GP/HI TRl.K/L HIT ( 150 ) , HD A I E ( 150 ) * 1SAV ( 16 > ♦ IX T V C L ( 150 ) XRECl 

C OF HOW /HEADER/ L.STUOY (10) , I S % LuATt (150) » 1 D * l.MAP ( 9 ) . I h , JOB ( 16 ) « Rt.TD 

, LTYPE < ?0) * np.LTF.S I ( 125 ) « ITT.NSMF ,UDA1 A F;CTD 

COMMON /RG/ DAI ESC ( 3 » 5 ) , I VV ( A ) « AD < 3 ) , SSIGMA(5). NMN ( 3 ) » SSE ( 3 ) RETD 

CGI' 4 Of; /SISFUiP/ II UF < 35 ) ♦ IBL ( 1 2'5 ) , IUR ( 35 ) , IBUFF ( 30 ) , Kfc Y » HY F » RETD 

+ Mf UHC. JFlLL«IuRK RETT. 

COMMON / F F / F )TKA1 (35) ,F1TRA2( .35) ,FITPA3(35) .FIT) A4(35) RETO 

SI APT, LAUNCH, SPLASH On N j AM2f 

D A 1 A 0 ft T E SC / 1 P 0 » . 2 0 <7 • , ? 61" • , 1 1 4 , , 1 4 4 • , 1 7 2 « »• 1 69 • » 2 P 9 . , 2 6 A » » v t- C 1 [ 

X 265, , 52U . ,404. , 2 90 . , 34 2 . , 3u4 . / DECK 

SLA SPLASH JULP IS 39 FFO 6 1974 LKClC 

lUPLC'T = 0 B t5 t D 

KSK IF =0 , 1 E T D 

IFFF IS l OOP CONTROL TO ALLOW OVER! Ay JAN?' 

IFFF = -1 I'ttD 

i call ret heio 

CALL ST .n RE;Tf - 

GO TO 1 RtTD 

£ 14 , RETD 


suhkcutine LIME (X.Y .P.M.I , l L ) 

X Is THE DATE. (TPOCPrr dent VARIARIE) 

Y IS THE DATA, (PE PEMf'TN 'i V'ARIABLF ) 

1FLAG = 13 LAST POINT POT VALID 

JF LAG = 13 LAST POT IT VALlL 

ISFLAG TS THE MUMPER OP POIU1* Pl.OTEO, 
UiHLMSlOM XlDi Y ( 1 ) 

DATA 0/0.04/ 

IP LAG = 0 
JPLAG = 0 
ISP LAG = 0 
IP = 3 

IE < P - 1 > 9 1 1 1 1 
1 DO 6 J = 1.N 

II = I*M - IT + 1 

XP = ( X ( 1 1 ) - X ( N + M ))/)(( I; + 2*M ) 

YP = < Y ( 1 1 ) - Y(fv + P ) ) / Y ( r.i + ?*M) 

CHECK TO SEE IF PC IDT VALUE IS VAL ID. 

IF ( Y ( 1 1 ) ) 3,13,23 
3 1Y = -till) + 0.5 
IF ( iY - 2) 13,14,13 
THIS IS ZERO Of; THE GRAPH. 

14 YP = -Y (N + l >/Y (|. ; + 2*M ) 

6u TO 23 
INVALID POINT. 

13 I FLAG = 13 

c> o r o 6 

VAl-ir POINT. CHECK FOP CONTINUOUS DATE. 

23 JF L AG = 13 
IF(ISFLAG) 25.25,24 

24 IMXIII) - X(II-H) - 1.5) 25,35,35 

25 IF (1 FLAG) 35,26.35 
PLOT THIS PEP DOWN. 

26 CALL PLOT OP.Yp, I) ) 

ISFLAG = iSFt.Ab + 1 
IP = ? 

GO TO 6 




L IDE 
L I PE. 

L I N.F 

LIME 

LINE 

LINE 

LlNig 

LlPfl 

line 

L I PJE 

line 

LINE 

line 

I..TNE 

lime 

l INE 
L INE 

line 
LINE 
LINE 
L. I NE 
LINE 
LINE 
LINE 
LINE 

line 

line 

line 

LINE 

line 

line 

line 

LlNjf 
L. IN™ 
LINE 

line 

line 
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c 


35 . 


18 

17 


8 


2*J 


r> 


c 


c 


9 

12 


14 


10 
C 10 
C 10 
18 

K 


25 


C 


UiSCC’LT INJUNS GKAF'IU Fi.,OT Afc X ULi. L'ACH LNti UF L I F t. • 

CALL WHERE 1 U , , 1 ) 

IH.Mi = 0 

A T L n C — j r L A G * I S F L A G 
1 F ( K F L. A G ) lG.i7«lfc> 

C ALI SY M-iOl. ( l) t V t P * I- 1 » p • 0 « !" 1 ) 
isFl.AG = i S F l A C + 1 
C A l L SYNC U ( XL « Y P ♦ 0 » L I . 0 . 0 , - 3 J 
IP - r. 

IS! i_ / = ISFLAG + 1 

Cul.i .THU hi 

KfLnT - IFLAC* Jf-LAG • 

J F t in I t. A G ) f . « 7 ,25 
CAL L WNt KL ( U i V , I ) 

CaIl EYHtJi ( in V.O, LL , fl . 0 i -1 > 

1ST LAG = iSFt.AG +1 
Kl. l UM-. 

LPil> 

SUL nliUl I(‘..L AXIS < X , Y « FU L>i UC t SI/t. » T META » CPilNi UY »NDLC * Ml AB , f\jTIf: ) 

mi- tr-.s Jufxi l> ( 2 ) < mil) 
l ) A I A I - / . b • . 5 1» / 

h/GI a j ! / . Li , . 4 , . 2 8 * • 2 t • 1 A , • 1 * • 0 7 , • 0 5 t « 0 3 J , . 0 2 5 * , 0 1 (S/ 

AC - tv. C 

S 1 G-S I Gf i ( L . 0 , A C ) 
i iAL= 1 AHS ( ivC I 
TH-TFH:TA*U. 017453294 

I T ( IjL A 13 • LL • 0 ) f LAP = 1 

II (i(T)L.Lt-.L') rue. = 1 

FImL-AP — i*L Ah 
i-i - SI 2F.4Lr.iL AB + 0.1 

U - SI XL »• A . Si' 

CTH = CUE (1H> 

STL = S 1 l\i ( Th ) 

CTL = Cl I -./I LL. AD 
Si i. = ST P/Fi LAE 
TIL = I 
Ml =1+1 
M2 = IjJ/ 2 
AUY = ABS ( L Y/Fl'il. Ail ) 

AUY=aPS(LJ ) 

ST A I = Y i-i 1 In, 

LAP s u.u 
IF ( AuY ) c > .1 » 9 

IT ( A f j Y -10 0.0 ) 3 2 

aLY = ALLY /, 10.0 
SI A I =ST 41 / 10 . 0 
LXP = LAP + 1.0 

go to y 

A U Y = A n Y * 1 o . 0 

si aT=st a r*iu . ci 
la i’ = exp - i.o 

IF ( AUY - l.oo ) 14*1.. ilo 

TT t AUY - tl.ni ) 14,1.8.38 

XA = X - (.20 * SIR - *S1 H - .08S7 * C T H 

XA = X - C H ( PL AH + 1 ) SIG - iin-LAP + GJ) *STK - .0057 * CTH 

YA - Y + (.2 0 * S X O « .05) * CTM ■+ .0 857 + STh 

y a = Y + (l-MPLAR + 1 ) i SIC- - H (NL AB + 5 ) 1 * CTH - .0857 * STH 

I = 0 
1 = 1+1 

CALL PUP 1 BLR CX A , Y A . 0 . i , Si AT , THr.'i A , 2 ) 




L. IMF 

liml 

line: 

L I ME 

L.1NL 
L INF 
LINE 
LINE 
L I At. 
L I ME. 
L INF 
l.Ihlt 
L I ME 
L INt. 

I INC. 
LINE 
L IU 

line: 

AXIS 
A X 1 S 
A. X I s 
/, X I s 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
A X I S 
A \ IS 
AXIS 
AX 1 S 
AXIS 
A X IS 
A X I S 
AXIS 
AXIS 
AXIS 
AXIS 
A X I S 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
AXIS 
A X I S 
AXIS 
AXIS 
AXIS 
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CALL BOMBER ( XA » YA , H( ft| AD+3 >, STAY , 1 BETA i NfJCC ) 
STA|=STAT+SIGM(ADYiDY) 

C XA = XA + Cl H 

XA = XA + CTIV 
C YA = YA + STH 

YA r YA + STfv 
IF(i - M2 ) 25*31,26 
26 IF ( 1 - ijl ) 25*60,60 
3] i'fviC = iM AC + 7 

C XL = > + (SIZE / 2#0 -.06 * TWC)*CTh - i-,07 * Slo *,3ti)* STFI 

XC = X + (SIZE / 2.0 -HU'JLAB+H) * li!C>*CTh 
1- ( -h ( MLAH+4 ) + SIG *MHf‘-LAH) + H ( I •L.Afl + 3 ) ) > * Slh 

C VL = Y + (SIZE / 2.0 -.06 * T|JC)*S1H + (-.07 + Sib *.36)* CTH 

YL = Y + (SIZE / 2.0 -h(M..Ab + 4) * TjC)*ST|/ 

1+ ( - H ( NL AH+4 ) + SIG * ( H < ML AH ) + I M NLAP + 3 ) ) ) * LTH 
C CALL SYMBOL ( XC , YC , 0 « 14 , BCl'/ » ThE'l A , I.AC ) 

CALL SYMBOL (XC,YC,M(f!| AB + 2 ) , BCD . ThLi A , uAC > 

XC = VC +l(l|jC -6.0) * 0.12)* Cll ! 

YC = YC +KTNC -6.0) * 0.12)* S IH 
IF (EXP) 35,50,35 

C 35 CALL SYMBOL ( XC , YC , 0. i 4, o' ( Xlli ) ni ,THE)h*7) 

C 35 CALL SYMBOL ( X C , YC , H ( ML.AB +2 ) , uJ ( XI 0 ) «i , Ti e I' A , 7 ) 

35 CALL SYMBOL < X C » YC , H < Ml. AP + 2 ) » 7H ( X 1 u ) , E HE Tm , 7 ) 

C XL = XC + .Aft * CTH -.07 * STH 

XL = XC+.38*CTH-F- (NLAB + q )*STH 
C YC ~ Y (. + .48 * STH +.07 * CTH 

rC= YC+ . 30*STH+H ( WLAB+4 ) *CTH 
C 40 CALL LUMLiLK ( XC , YC , 0 . 1 f> , EXP , THCT A , - 1) 

40 CALL NUf'lBLR < XC , YC , H ( f L Ah + 3 ) , L XP , T HLT A , - 1 ) 

50 GU TO 25 
60 FhiT 1C = L TIC 

nt = r+rnic 

TIm = NT 

CTh r CTIV/FHTIC 
STH = STN/RiTIC 
XB = X + I TJ*C T h 
Yb = Y + T|\,*STH 

XDElI = - h<6 - NTIC) * SIG *• STH 
YDELT = hlb - MIC) * SIG * CTH 
XA - XB + XDtIL T + XITEL. T 
C XA — XB— 0.1 * SIC* * STH 

YA = YB + YDELT + YIIE.lT 
C YA = Yb+ C.l * SIG * CTh 

CALL PLOT ( X A , Y A , 3 ) 

XA = XA - XOELT 
YA - YA - YDELT 
C DO 20 I =l*i-| 

DO 20 I — 1 » M 

. DO 20 II =1,NTIC 

1FUI.LT.NTIC) GO TO 1,5 
XX = XIJELT 
YY = YDELT 
GO TO 46 

45 XX = 0. 

YY = 0 . 

46 CONTINUE 

CALL PLOT ( X B » Y B , 2 ) 

XC - XB - CTH 
YC = YB - STH 
CALL PLOT ( > C * Y C , 2 ) 


AXIS 

AXIS 

AXIS 

AX is{ 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

DECK) 

'AXIS 

3EC10 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 
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c XA = XA - CTH AXIS 

XA = XA - CTH + XX AxIS 

C YA = YA - STH AXlS 

Ya = YA - STH + YY AXlS 

CALL PLOT ( X A » Y A t 2 ) ft X 1 S 

XA = XA - XA AXIS 

Y A = YA - YY AXIS 

:<h = xc axis 

20 Yb = YC X 1 S 

Kfc.T Ul'N AXIS 

Li Jj AXIS 

SURkOL'T IiXL SC ALL (X.S.t *F ) SCAt.L 

c SCALE 

C WHLRL- X IS ft if l\iAf L Of- T‘C AKKAY Of DATA TO PC St AN NED FoK MAX J I'-iUriSC ALE. 

C ADD MI h I I'll i h V "• | Utf S » Aiv ADJUSTED MINI VALUE ILL BE SCALE 

C STOKE U IN XtLUI+l). AN ADJUSTED DX ( D AX , -F' il i . ) ^ ILL BE SCALP 

C STOKED IN X +h + l ) . SCALE 

c s IS THE LLf. GTH OVER WHICH IBIS DATA IS To of PLOTTED • SCALE 

C M IS THE I'UI'REK OF DATA POINTS Hi THE AKKAY X. SCALE 

C K IS TT it j.CI CAT CYCLE OF A MIxED ARRAY, (NORMALLY 1) SCALE 

c SCALE 

DlNt-NS I OH X ( 2 ) SCALE 

IT = 33 SCALE 

NP = N + K SCALE 

L - IP f 1 ’ SCAU. 

j = HP + K + . 1 SCALE 

C XMAX = XU. ) SCALE 

C X(l.) = X(l) SCALE 

OU 2 I=l«NP.k SCALE 

IF CX( I ) ) 2*2.3 SCALE 

2 CONTINUE S.CALE 

3 Xi“lAX = X(l) SCALE 

C X U ) = X < 1 ) SCALE 

ML): u*n SCALE 

DO 10 I r l.NP.K ' SCALE 

IF ( X ( I ) ) 22 1 1 0 ♦ 23 SCALE 

22 I TEST = 2.5 - XII > SCALE 

IF ( I TEST ) 10.24. If* SCALE 

21 XIU : 0.0 SCALE 

II =0 SCALE 

GU TO 10 SCALE 

23 IF' ( > r . A> - > U ) > biE.b SCALF 

F XhAX = X(I) SCALE 

(• IF (XCL)-X( I) )1 0.1 0.7 SCALE 

7 X(L) = Mil . SCALE 

10 CONTI DUE SCALE 

DX = ( X M A X - X ( L ) ) /S SCALE 

If (l.:X > 3 1 1 3 1- * 3 0 SCALL 

31 X ( vl ) = 1.0 SCALE 

XU. )= XU) - 0.5 SCALE 

RLTilKT SCALE 

30 IDX = ALtilil 0 (NX) SCALE 

I XNI-4 = X(L) * 10.C ** (-IDX> SCALE 

IF (X(L> ) 32.33.34 SCALE 

32 IAUnI = XtL) * 10.0 »♦ ( " J X ) - 0.99 SCALE 

3*i XIL) = IXFiN SCALE 

X ( L ) = X ( L ) * 10.0 ** IDX 1 SCALE 

33 DX = ALOblO ( (XNAX-X (| ))/$) SCALE 

IDX = DX SCALL 

X H A X = IDX SCALE 
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UX=1 0 .(>**( LX-XKAX I 
X h A X = 1.0 

m. if ([ >-i* 0 ) 40,20*11 

40 DX = LX * 10.0 

lbx = mx - i 

GU 1'<J 41 

11 XtiAX = 2.0 
IF ( U > - 2 • U ) 20,20,12 

12 X i“ i Ax = 4.0 
IF < f . X — 4 . C ) 20,20,13 

13 XMAx=5.n 
II- ( LX - b . U ) 2 0,2 0,34 

14 Xh* ! x = A.O 
IF IIX-A.O) 20,20,15 

15 Xl-I/>X = ) u . u 

2D XU) = XMAX * 10*0 ** I OX 
IF (IT) 49,49,39 
3 c i CONTINUE 

li-'/iX = XhAX + 0. Of. 0 01 
i X ■ • - X ( L ) * 10.0 * * ( - I D X ) 

I i-.Ul = T XMN/ IMAX * 1 MAX 
A ( L ) = ir-lL-F 

XU.) = X < L ) * 10,0 * * TO 

GO r ( . b J 
49 comifjf: 

X < l ) = 0.0 

59 C { j I IGUt 
kl Torn 

t ui. 

SOP.KOOT ILL RET 

MSC ClvbuCR IMt DATA KLTRt I\/AL PROGRAM 
F 1 K S T LOUR STATISTICS PROGRAM. 

COMMON XDATA ( 150 ) , T( 2of > ♦ IOf'LOT , 1FFF * KGT « KSK IP , LT » LM « LSTOP 
CU ,W FiON /INLiEx/IMPX ( 124 ) , If! 0X1 ( 124 ) , 1NL/2 ( 246 ) t Ii\irx3< 124) 
COMHCN/H1 T PlK/LPII ( 15n ) ,M jATL ( 150 ) , ISAV ( 16 > , MTVGL < 150 ) 

COMMON /HEADER/ LSTUily r 10 ) , IS, LUATE (150 ) , IDiLMAiil 9) * IM* J0BI16) , 
. L T Y P C ( 2 G ) , lUULVEST (125) < IT T , NSMp t ImDAT A 

COMMON /SlSBlJF/ IEUF ( 35 ) « IBL ( 125 ) , lUR ( 35) , Ir>UFF< 30 ) * KE Y ♦ KYE * 
COMMON /S1SBMF/ JFUF ( 35) , IBL ( 12b ) , IUR ( 35 ) , ItiUFF< 30 ) , KEY »KYE , 

+ MF UNC , I FILL « ILRK 

COMMON /FF/ FITRA1 (35) ,F1TRA2( 35) ,F ITRA3(35> ,FITPA4(3b) 

Ul MENS I ON I BUF ( 14 ) 

EQUIVALENCE'! IBUF ,T> 

EXTERNAL ERROR. 

RAl=SAhPLF DIRECTORY *** RA2=OR1nE F'lLE *** RA3=BL00D FILE 

*** RA4=DA1LY FILL *** 


PLACL KEYED FILES IN UPDATE MODE EXCLUDING iRAlal WHICH IS 
TO BE USED AS A SEQUENTIAL SEARCH FILE 

assigned to fortran unit NO. 1 

IF ( I F FF ) 31,201,140 
C 31 CALL RANDOM (4tdiRA 22, 125,5,7*100 , 100 tlCODEtLOC) 

31 CONTINUE 

CALL F ILL I 5 ( F I TK A1 , 3LL r N , 3LRA1 , 21.KA , KEY i 2LKL , 1 0 » 2LKT * I'Ll ♦ 2LRB , 5 
+ , 3LMRL , 350,3LMNK, 350,3LWSA, T) 


ORIGINAL PAGE IB 
OF POOR QUALITY 


scald 


SCALD 

s call 


SCAg 
SC Al" 


SCALD 

SCALt 

SCALF 

SCALE 


SCALD 

SCALE 

SCALt 

SCAL: 

SCAL! 


«CAL f 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALt 

SCALE 

SCALF 

SCALt 

SCALE 

SC Al 

RET 

RET 

RET 

NET 


RET 

XREDljC 

RET 

XREOUC 


RtT 


RET 


RET 


RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET J 

RET 

RET' 

ret 

ret 

RET 


ret 

RET 

RET 

RET 

RET 

RET 
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call STOh'EF (FITRA1 1 3LKPL « 20 ) 

CALL STOREF (FlTRAl *2LFX t ERROR) 

CALl OPENP't ( F I TR A 1 , 31.1-0) 

CAL L PE'WMM F ITRA1 ) . 

CALL F ILK X S ( FI TR At » 3LI FW ♦ 3LRA2 ♦ 2L K-A » KCT • 2L.KL » 10 ♦ 2LKT » 1L I » 2LRB » 5 

+ .3LMKL. 1250. 3LMNR. 1250, 3LWSA. T) 

CALL STOh'EF i F ITR A 2 . 3LFRL , C ) 

CALL STOREF { FITp A2 ♦ 2L FX ♦ ERROR ) 

CALL. OPEUM FTTRA2 ♦ 5L INPUT > 

CALL REWkij (FIT RA2 ) , c . 

CALL F II E IS ( FlTR A3 , 31.1 r N • 3LKA3 . 21 KA , KE Y , 2LKL « 10 « 2 Lk I i 1LI , 2LRB » 5 
+ , 3LMRL , 35" , 3|. MNR » 35G,3LWSA» T) 

CALL SrOREF<FlTKA3i3LF< L«0) 

CALL S T OH E F (FIT fs A 3 » 2 L F X «' ERROR) 

C A L L OPE lv H ( F ITR A3 1 SI I M UT ) 

CALL REwMi ( FlTFi A3 ) 

CAL L F ILL IS ( F 1 TR A4 , 3LI FN , 3LKA4 » 2LKA * KEY , 2LKL , 1 0 i 2LKT , XL I , 2LRB ♦ 5 
+ , 3LMKL , 30 0 » 3LMNR » 300,3 lWSA,T) 

CAL L SFOHLF ( F I TKA4 , 3LFpL , 0 ) 

CALL STOREF (FITRA4 < 2LFX ♦ ERROR) 

CALL OPENMF 11 PA4 , 5L INPUT) 

CALL FtEWIVU ( F I TR A4 ) 

IFF K = 0 

INITIAL. 1 2F COUK.l F R FLAGS FnR THE FIRST PASS OF 
ANY LIVEN RE-TREIVAL 

201 ISFlG ' = 1 
I Li FLO = 1 
XhFLO = 1 
ITPFLG = 1 
ITT FLO = 1 
IFFF =1 

READ DHL DATA CARD 

1 rL AD 200* (ISAV(I) .1=1,36) 

200 FORMAT l A4 « IX , A4 . IX * 1415 ) 

l)FTFI<l w ili\<F CARD TYPE AMI COUNTER SEQUENCE 

IF ( ISAV ( 1 ) . EU.4HJ0B ) GO TO 19 

IF(ISAVIl».ECi.4HSTUU.AND.ISFLG.EU.l) go Tl 5 
I F < IS A V ( 1 ) • EO . 4HSTU0 • AND . ISFL b • 20 . 0 ) . GO TO 45 
IF ( ISAV 1 1 ) .EG .4HPATE ..ANLl . IDFLG .EG. 1 ) . GO TO o 
IF ( ISAV ( 1 ) *E0»4i)DATF:. Ai\|D. IDFlG.EU . 0 ) GO TC 46 

IF ( ISAV ( 1 ) ,E0*4HHAN * AND . ImF’LG . EQ . 1 ) GO TO 7 
IF l ISAV < 1 ) . E0.4HMAN . AND « IMFl b . EG . 0 > GO TO -r7 
IF ( I SAV < 1 ) .fc'0.4HTYPF. AND. ITPF LG.EQ.l ) GO TO 8 
IF ( ISA V ( 1 ) * F G» 4HT YPF . Af iP • I TPF lG . EG » U > GO TO 4 8 
IF ( ISAV ( 1 ) .EQ.4hTEST . A[\iO • t'fTFLG .EG. 1 ) GO TO 9 
IF ( ISAV ( 1 ) «EQ .4 HTEST . AND. I TTFLG.Eu. 0 ) Gu TO 49 
IF l ISAV ( 1 > .FIG .4HEP D ) GO TO 40 
IF ( ISAV ( 1 ) .EQ.4HECF ) CO TO 99 

BUILD HE'TRF-IVAI. CRITERIA ARRAYS 

5 JSTALL=0 
IS ~ 0 

ISFL.G = 0 


RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

-RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

PET 

RET 

RET 

RET 

RET 
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45 CALL SETCRI (LSTUDY, IS,JSTALL) RET 

C OUTPUT , ( LSTUDY ( I ) » 1 = 1 ♦ 5 ) * IS ♦ JSTALL RET 

GO TO 1 > RET 

6 JDTALL=0 ' RET 

IU = 0 RET 

IuFLG =0 RET 

46 CALL RETCRKLDATE.IDt jnTALL) RET 

C OUTPUT » (LOATE ( I ) « 1 = 1 * 10 ) * ID* JOT ALL RET 

GO TO 1 RET 

7 MANALL=0 RET 

11*1 = 0 RET 

I ftp LG = 0 RET 

47 CALL SETCRI (LMAN, 1M ,MANALL ) RET 

C OUTPUT i (LMAN(I) *1=1.9) , IM.MANALL RET 

GO TO 1 RET 

8 J1PAII. = 0 RET 

ITP = 0 RET 

ITPFLG =0 ' RET 

40 CALL SETCRI (LTYPE* ITP, jTPALL) KET 

C OUTPUT, (LTYPE( I > ♦I=l»10> tlTPiJTPALL BET 

GU 10 1 RET 

9 jTTaLL = 0 ' RET 

ITT = 0 RET 

IT! FIG = P RET 

49 CALL SETCRKLTEST, ITT.jTTALL) RET 

ITT = 1 -RET 

C IF( JTTALL.ES. 1 ) ITT = 124 RET 

LST ART = I R A V ( 3 ) RET 

LSTjF' = IS AV ( 4 ) RET 

IP (LSTOP.EO, 0) LSTOP=l START OEC : 

GU TO 1 RET 

19 DO 119 1=1,16 RET 

119 JOB ( I ) =ISAV ( I ) RET 

IF< IOPLOT.EQ.O.AND. JOB (3) .GE.1000 > CALL PL OTS ( 14HW AS A ENDOCRINE , RET 
1 14) RET 

IF <J0B(3) .GE.1000) IOPL.OT = 999 RET 

IF ( JOB (2) .EQ.4HDATE.0R. JOB (2) . EG . 4HL30TH . OR . JOB ( 2 ) .EQ.4HV0LU) G0T01 OEC ID 
JOB ( 2 ) =4HDATE DEC10 

PRINT 601 DEC10 

601 FORMAT {* UNKNOWN JOB PARAMETER DATE ASSUMED*) OEClO 

GO TO 1 RET 

RET 

BUILD HIT ARRAY OF SAMPLE NUMBERS RET 

RET 

40 CONTINUE . RET 

LT = LST ART - 1 RET 

RET 

DO 4321 LT=LSTART,LST0P RET 

140 IFCIFFF - 2) 345,240,145 RET 

145 LT = LT + 1 RET 

RET 

IF ( LT - LSTOP) 150,150.4321 RET 

150 LM = 0 RET 

IFFF = 2 RET 

IF (KOT.EG.O ) CALL SSWTCH ( 1 »KKT ) RET 

IF ( KK T « EG « 1 ) GO TO 999 RET 

LTEST(l) = LT RET 

C DO 4321 LM=1,3 RET 

240 LM = LM + 1 RET 

I F ( LM - 5) 250,250,24.5 RET 
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245 IFF F = 1 *' £T 

GO TO 140 R ET 

250 L M A i „ ( 1 ) = LM re:t 

Hi = 1 KET 

C KLWII'D 1 rET 

CALL RE.WMD ( F ITRA1 ) rET 

BET 
RET 

THL KEYED (KA1) SAMPLE DIRECTORY HU IS TrLATEO AS A SEQUENTIAL kET 

FILL DURING THE SEARCH FOR SAMPLES WHICH SATISFY LET 

'the: input criteria ret 

RET 

10 BUFFER IN ( 1 « 1 H 1BUF ( 1 ) , IBuF < 14 ) > R £ T 

10 CALL GETNTFITRAl ) RET 

IF ( If ; FTCE< (FITRA1 ,2LFP ) .EC . IDOL ) GO TO 23 RET 

2 IF ( JSTALL.I 0.1 ) GO TO 1 2 RET 

DO 11 1=1* IS RET 

IF IIPUFC2) .LO.LSTUDY (I) ) GO TO 12 RET 

11 CONTINUE RET 

GO TO 10 RET 

12 IF ( JOT ALL • EG • 1 » AND . JOR ( 2 ) • EQ ♦ 4H VOLD I GO TO 44 RET 

RET 

CHECK FOR SIMULTANEOUS fi)A| I al AND DATE c'SAVEu! OPTION RET 

RET 

IF i JPTALL .EQ.l .AND. (J0F'<2) . EG . t+HD ATE . OR . JOB l 2 ) .Eti*<frltROTH) )G0 TO 4 i P E T 
DO 1? 1 = 1 » ID RET 

IF < It UF<3> ►EQ.LDATET I ) ) GO To 14 RET 

13 CONTINUE ... RET 

GO TO 10 KET 

41 riDSAV = IBUF ( 3 > KET 

GO TO 44 RET 

ret 

CHECK FuP. DATE SAVE OPT I Oh RET 

RET 

14 IF ( JOR ( 2 ) ♦ EG . 4H0ATF. . Or . JOB ( 2 ) , E J . 4HBOTH > MDSA V=LDATE ( I ) RET 

44 IF ( MANALL « EG • 1 ) GO TO 16 RET 

DO 15 1=1 tlM RET 

I F ( I RUF l 4 ) * EO • LP'lAN ( I ) ) GO TO 16 RET 

15 CONTINUE RET 

GO TO 1 0 KET 

16 I F C JTPALl .LO.1) GO TO 16 RET 

DO 17 1 = 1. I TP RET 

J F < IBUF < 5 ) . E Q • L T Y F E ( 1 ) ) GO To 16 RET 

17 CONTINUE RET 

GO TO 10 . RET 

• RET 

CHECK FOR MASTER SAMPLE NUMBER V RET 

RET 

16 IF(iRUF(14).E0.0) GO TO 21 RET 

MIL = 1H-1 RET 

DO 20 1 = 1. MIH RET 

IF ( LHIT ( I ) • EQ • IBUF ( 14 ) ) GO To 10 RET 

20 CUNTINCJE RET 

LHI T ( I H ) = I BUF ( 14 ) RET 

PRINT 220, <LHIT( I ) *1=1,10) RET 

220 FORMAT ( 5X , 5HLHIT2.5X. 10 1 10 ) RET 

GO TO 22 RET 

21 LHIT< IH)=IRUF(1) RET 

C PRINT 221, (LHIT(I),I=1 ,10) RET 

C 221 FORMAT (5X.5HLHIT1.5X.1 OHO) RET 
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IF date save option was spfcified fill date array corresponding 
TO SAMPLE number HIT Array 

22 IF ( JOB < 2 ) .EQ.4HDATE.0R.J0B(2) .EQ.4HB0TH) MDATE ( IH > =MOSAV 

IF total volume save option was specified fill volume array 
corresponding to sample number hit array 

IF ( JOF { 2 ) .EQ.4HV0LU.0R. JOB (2) . EQ . 4H&0TH ) Ml VOL ( I H ) = IGUI (10) 
1H=IH+1 

IF ( IH.LE. 151 ) GO TO 1.0 

23 NSMP = IH - 1 

IF < imSMP.lE. 150 ) GO TO 35 
PRINT 30 

30 FORMAT (1H1»17HHIT FILE OVERFLOW ) 

STOP 30 

35 CALL RETRVE 

PRINT 30 0 i LSTUDYf LMAM, JOB , LT YPE , USMP , NuAT A 

300 FORMAT ( 1H 0 , 6HLSTUEY , 1 o I 1 U * // * 2X i 4HLMAN •, 911 0 ♦ // , 

, IX, 4HJ0B ,A4,5X,A4,5X,14I6,//,GH L T YPL , 20 1 5 , // , 

. IX ♦ 7HNSMP = ,15, 10X*«HNUATA = ,15) 

PRINT 301 » ( LDATE (I)»I=J»lD) 

301 FORMAT ( 6H LUATE /,(10T]0)) 

PRINT 3 02 « (L TEST (I ) * 1 = 1 ♦ ITT > 

302 FORMAT ( 6H LTF.ST , (10T10)) 

PRINT 306 , ( MTVOL ( I ) , I=t»NSMP) 

306 FORMAT ( 1HO,SHMTVOL, /, ( 10110 ) ) 

PRINT 303 , ( MDATE ( I ) ,1=1, NSMP) 

303 FORMAT < 1H0 , 5HMDATE , / , ( 1 0 1 1 0 ) > 

PRINT 304»<LHIT(I)*I=1,NSMP> 

304 FORMATt/ i 6H LHIT »/t(l0I10)) 

PRINT 305* < XDATA ( I ) , I=1,NDATA) 

305 FORMAT ( 1H0, 5HXDATA ♦/♦ (AF 15.6) ) 

PRINT 300. L STUDY » Lh Ar , JOB , LT Y PE » NSMP , (\iUATA 

300 FORMAT ( 1H1*6HL STUDY , 10 T 1 0 , // « 2X , 4HLMAN , 9110 , //, 

. 4H JOB ,A4,5X,A4,5X*l4l6,//,5HLlYPE,20I ! j,//, 

. 7HNSMP = , 1 5 * 1 0 X » 6HNDAT A = ,15,// > 

PRINT 301 i (LDATE ( I ) , 1=1 »1D) 

301 FORMAT (5HLDATE / , ( 1 0 1 1 0 ) > 

PRINT 302. (LTtST(I) ,I=1,ITT> 

302 F0RMAT(5HLTEST . (lOIlOU 
PRINT 306, ( MTVOL < I ) , 1=1, NSMP) 

306 FORMAT ( 1H1 , 5HMTVOL , / , 4 10 110) > 

PRINT 303 , (MDATE ( X ) * 1=1 , NSMP ) 

303 F0RMAT(1H1,5HMDATE,/, (10110) ) 

PRINT 304, (LHIT(Z') ,1 = 1 ,NSMP) 

304 FORMAT (//,5HLHIT ,/,(iOHO)) 

PRINT 305, (XOATA( I ) , I=1,NDATA) 

305 FORMAT ( 1H1 , 5HXDAT A , / , IBF15.6) ) 


RETURN 
CALL STAT 
4321 CONTINUE 
IFFF = 0 


I 


RET 
RET 
RET 
RET 

ret 

RET 

RET 

RET 

RET 

RET 

RET 

XREDltC 

RET 

XREDUC 

RET 

RET 

RET 

RET 

rlT 

RET 

DLClo 

RET 

DEC 10 

RET 

RET 


•RET 
RET 
RET 
DEC 10 
RET 

DECiTF' 

RET 

OECIO 

RET 

UEC10 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET ' 

RET 

RET 

ret 

RET 

-RET 

RET 

RET 

RET 

RET 

RET 

-RET 
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REWIND 1 

CALL REWNOIFITRAI > 

GO 10 2D 1 

888 PRINT 800 0 

0800 FCRHATdbH FILE 1 REWOUND) 

RETURN 
99 CONTINUE 

CAL L CLOSED ( F ITR A1 ) 

CALL CLOSLI' (F1TRA2) 

CALL CL0SEn(FlTRA3> 

CALL CLOSER 1 < FITKA4 ) 

IF l 10 PLOT ) 199,199,999 

999 CALL STOPPLT 
PRINT 900 

900 FORMAT (19HONOPMAL END OF JOB,) 

STOP 2000 
199 STOP 1 
END 

SUBROUTINE SET C K I ( LBUF , Jf;()X , L ALL ) 

TPIS SUBROUTINE STORES INFORMATION FROM ONE DAf A CARL) INTO 1 HE 

corresponding CRITERIA ARRAY 

COMMON /INDEX/ I NDX (124) , JNfiX 1 (124 ) , Ll\jDX2 l £ 46 )., IUDX3 d24 ) 

COMMON/ H1TBLK/L HIT ( 15n ) , HI A T t.dbO),ISAV d 6 > t Mf VOL (150 ) 

COMMON /HEADER/ LSTUOY ( 10 ) , IS , LDAT E ( ISO ) , 1 0 , LiiAn ( 9 ) , In, JOB (10 ) , 

LTYPE ( 20 ) ♦ IT P,LTEST ( 12b > , IT f «NSMP tNDATA 
* COMMON /SISBUF/ IPUF ( 35 ) ♦ IBL ( 125 ) , 1UR ( 3b) , I BUFF (?0>,«EY,KYE* 

+ MFUNC,IFILE, 1ERK 

COMMON /FF/ FITRA1 (35) ,FITRA2( 3b) ,F ITRA3( 35) ,FITRA4( 35) 
DIMENSION LBUF(l) 

IF C ISAV<2) .E0.4HALL « OH . ISA V ( 2 ) . EO • 4H ) GO TO 1 

JNIJX = JNOX + 1 
LBUF ( JNDX)=ISAV (3) 

IF< ISAV( 2) .EQ.4HEACH) GO TO 3 
INXT=ISAV ( 3)+l 

2 IF 4 INXT.GT, ISAV (4 ) > RETURN 
JNDX = JNUX +1 

LBUF( JNDX )=INXT 
INXT=INXT+1 
GO TO 2 

3 DO b 1=4, lb 

IF( ISAV(I) .EO.O > RETURN 
JNDX = JNDX + 1 
LBUF ( JNOX ) =ISAV( I ) 

5 CONTINUE 
RETURN 
1 LALL=1 
RETURN 
END 

SUBROUTINE retrve 

C THIS SUBROUTINE RETkEVES THOSE DATA VALUES FROM THE F'LOOO OR 
C URINE FILES WHICH SATISFY THE INPUT CRITERIA 

C THE DATA VALUES ARE STORED IN ARRAY XDAT A 

L COMMON XDAT A ( 150 ) , T ( 20 0 ) , IOPLOT , IFFF , KOT » KSK I P , LT , LM , LSTGP 

C COMMON /INDEX/ INOX ( 124 ) « INDXl ( 124 ) , IN0X2( 246) * INPX3 ( 124) 

COMMON/ INDEX/ INDX ( 136 ) , IN0X3 { 13b) 


RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

ret 

ret 

RET 

RET 

RET 

;-niT 

RET 

RET 

RET 

setcri 

SETCRI 

setcri 

setcri 

setcri 

•xredljC 

setcri 

setcri 

SETCRI 
SET CR I 
SETCRI 

setcri 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

setcri 

setcri 

SETCRI 

SETCRI 

setcri 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

RETRvE 

retrve 

retrve 

retrve 

RETRVE 

RETRVE 

XREDUC 

retrve 

DEC10 
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COMMON/HITGLK/LHITU50) *MDATE< 150 ) *ISAV (16) ,MTVOL(150) XHEDUC 

COMMON /HEADER/ LSTUOy ( 10 ) * IS ♦ LOATE ( 150 ) t 1 D * LMAN ( 9 ) t I M , JOB ( 16 ) , RETRVE 

. LTYPE<20> tlTP.LTEST ( 125) * J TT ♦ NSMP , NDAT A RETRV - 

COMMON /S1SBUF/ I FUF ( 35 ) * T BL ( 125 ) * IUR < 35 > , IUUFf ( 30 ) * KEE ♦ KYE , RETRg 

+ MFUNC.lFlLEilERR kETR®_ 

COMMON /FF/ FITRAK35) ,FITRA2(35) ,FITRA3(35),F1TF<A4(35> RETRvE 

DIMENSION XTEMP ( 125 ) RETRvE 

INTEGER KEY (2) RETRVE 

EQUIVALENCE ( T i X TEN P ) rETRVE 

EQUIVALENCE (KEE, KEY < 2) ) RETRvE 

OAT AC I T-J 0 X < 1 ) * I=l*136)/400,40l,4U2*403*4u4*40S*503*406 * 4 07 * 408 * 4 09 * DECl 0 ' 
. 410, DEC 1 0 


1 411 *412 *413* 414 *415, 416, 417, 418*419*420 *421*422 *423 . 424 *425 , 426* OEClO 

2 4 27 *4 26 *429 1 4 30*431 ,432*4 33*434 ,4.55 *436 *437. 4 30 *439 *44 0*44 1*442* DEC 10 * 

3 4 4 3 , 444 *445 *4 4b *447 *446 *449 *450, 45 It 452* 453* 454 *455*456,457*456*nEC10 

4 459 ♦ 460 * 4b 1 * 462 * 463 ♦ 464, 465,466,467, 468, 4b9, 470 *471*472 1473 *474* [)EC 10 

5 4 75* 47b *477* 478, 479,480 *4Ql* 462) 48 3 *484* 485*486,* 487 *488,489* 490, DEC 10 
b 4 9i *492 *493 *494 *495, 496, 497 *498 *499, 50 0,50 1*502 *30 0,30 1,302 *30 3* DEC 10 

7 3 04*305*306*307*321*308*309, 3l0,3ll*3i2*3l3»3l4*3l5*3lb*3l7, 31 8 , QEC10 

. 319* DEC 1 0 

8 320*5l4*5l5*5l6*5l7*5ie*5l9*520*52l*522,523/ DEC10 

DATA (INLiX3(I), 1 = 1*136)/?* 3 *4*5*6*7*8,9*10* 11*12*13*14*15*16*17* DEC 10 

1 18, 19, 20, 21*22*23 *24, 25 ,2b, 27, 28, 29, 30,31*32, 33,34,35,36,37.38, DEC 10 

2 39, 40, HI *42 ♦43.44,45,46,47, 48*49, 50,51,52. 53*54 ,55,56,57*58,59* DEC10 

3 bO, 6 1,62, 63, b4,fc5,66,67,68 |b 9,70,71, 72, 73 *74, 75, 76, 77, 78,79,80, UEC10 


4 8i, 82 * 83, 84* 85 *e6* 87 . 88, 89, 90, 9 1,92, 93 ,94, 95. 96* 97, 98, 99 ,100* ‘DEC 10 

5101, 102, 103 *104,105*2,3*4 *5*6* 7 *6,9, 10, 11, 12, 13. 14, 15, 16, 17* 18, 19, nECIO 
6 20,21,22,23*116,117,118,119*120*121.122*123*124,125/ nECIO 

DATA ICDT/445B/ RETRVF 

«=1 RET Rig 

KSAV=0 RETR™ 

IERR=0 RETRVE 

DO 27 K=1*NSMP RETRVE 

DO 27 1=1, ITT RETRVE 


RETRvE 

IDENTIFY TEST NUMBER IN INDEX RETRVE 

RETRVE 

DO 24 J=1 ♦ 1 36 DEC10 

IF(LTEST ( I ) . EQ, INDX ( J ) ) GO To 25 DEClO 

24 CONTINUE DEClO 

STOP aiNVALlD TEST NUMBERS DEClO 

25 10=0 DEClO 

LREC=INDX3( Ij) DEClO 

IF(LTEST(I) -400} 41,31,31 rETRVE 

31 INDX1 = 1RU , RETRVE 

GO TO 50 rETRVE' 

41 INDX1 = 1RB RETRVE 

RETRVE 

PICK UP KEY FROM HIT ARRAY OF SAMPLE NUMBERS RETRVE’ 

retrve 

50 KEY ( 2 ) =LHIT < K ) RETRVE 

“ RETRVE 

DETERMINE IF DATA NEEDED is FROM CURRENT RECORD RETRVE 

RETRVE 

IF(KEY( 2 > .EG.KSAV) Go TO 26 RETRVE 

RETRj 

CHECK FOR URINE OR BLOOD FILE RETRv^ 

RETRVE 

29 IFUNDXKU) .EO.IRU) GO TO 2a RETRVE 

29 IF( INDX1 .EGU1RU > GO To 28 RETRVE 
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c 


c 


CALL RANDOM! l.aRA3a.XTEMP.32«KEY. 100 *100 .ICODE.LOC) 

CALL GET (FITRA3 ) 

LOC = 3 

IFlLt =3 ' 

IF ( 1ERK.NE. 0 ) GO TO 100 
GO TO 26 

26 CALL RA!\IDOK(l.aRA2a*XTFMP»l25*KEY* 100 * 100 .ICODE.LOC) 
26 CALL GET { F ITRA2 ) 

LOC = 2 
I FILE = 2 

I F ( IERR.NL.0) GO TO 1(H) 


FETCH UruRO NUMBER OF DATA RECORD FROM INDEX. .STORE DATA 
VALUE III CURRENT XDATA LOCATION AND INCREMENT 
XOATA LOCATION COUNTER M 


2fc U<LC = INIJX3( 1 J) 

20 XOATA (M>=XTEMP(LREC) 

30 M=h+1 

I F ( M ♦ G T • 1 5 0 ) GO TO 11 0 
KSAV=KEY (2) 

27 CONTINUE 


NDATA = NUMBER OF DATA VALUES REtRCIVED 


NDATA=M-1 


ORIGINAL PAGR io 

0F poor 


retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

retrve 

RETRVE 

RETRvE 

retrve 

retrve 

retrve 

retrve 

retrve 

XREOuC 

retrve 

retrve 

retrve 

•retrve 

RETRVE 

retrve 

retrve 

retrve 


RETURN RETRVE 

100 IFIIERK .EG.ICDT) GO TO 105 P.ETRVE 

PRINT 101.IERR * K E Y ( 2 ) „ RETRVE 

101 FORMAT (1H» 19HR ANEGM FRROR-RCTRVE « 08 » 5X . 1*4 ) RETRVE 

STOP 100 RETRVE 

105 PRINT 1.04 . KEY ( 2 ) RETRVE 

104 FORMAT ( 1H « 27HS AMPLE NO. NOT F OUND-RETR VE , 5X , 1 4 ) RETRVE 

XOATA (M)=-l. RETRVE 

IERR=0 RETRVE 

GO TO 30 RETRVE 

110 PRINT 111 RETRVE 

111 FORMAT ( lhl .43HDATA BUFFER FULL BEFORE ALL DATA RF f REIVED ) RETRVE 

STOP 110 RETRVE 

END RETRVE 

SUBROUTINE STAT . STAT 

COMMON XDAT A ( 150 ) . T (20 0 ) , IOPLOT ♦ IFF F . KOT , KSK IP * LT . LM . LSTOP XREDuC 

COMMON/HITBLK/LHIT (150) » MBATE ( 150 ) ,ISAV (16) ,MTVOL(150 ) XREDUC 

COMMON /HEAOER/ LSTUDY ( 10 ) . IS iLDATE ( 150 ) . ID.LMAN( 3 ) » IN, JOB( 16) , ST AT 

. LTYPE(20 ) . ITP.LTEST ( 125) ♦ ITL.NSMP.NUATA STAT 

COMMON/RG/ OATESC < 3 .5) , IVV < » SSM£AN(3). SSIGMA<3). NNN ( 3 ) * SSE ( 3 ) STAT 

COMMON Y(3»3.80>.N(3.3)*A<4.4>.B(4.4),AP(3).Q(3>.w(3>,V(3>,WW<3), ANOVl 

1VV ( 3 ) . WSUPI 1(3) ♦ SUMYT ( 3 ) .NSUMJT3) . SUMY J ( 3 ) , SUMY IJ ( 3 , 3 ) . T AUHAT ( 3 ) « ANOVl 

2 6ETHAT(3) .THAT (3) ,RHAT(3) ANOVl 

COMMON/AOV2NE/IDEN ( tt ) . NAMET ♦ NAMED . I WT i SUMSQX * TAU t MNSQT * FRATIO , ANOVl 

1 IERR*ERROP.*MNSQE,SST,mNSST*FSS 1 . I NT ,TIIM*TI(\IT»FINT, ITHT.WITHT, ANOVl 

2 WIT.NSUM. SUMSOY .SUMSpT. BET A . MNSQB . FR ATB » £. RKORB . phiSOBE ♦ SSB » MNSSB ♦ ANOVl 

3 FSSB.BIN* BINT. FIMB.PFR AT* PFSST.PFINT .PFRaTB,PFSSB.PFINB ANOVl 

REAL KSTUDY. KTYPE . KM AN. KTCST * NIT'S STAT 

REAL MNSSB * MMSST . MNSQp * MNSQBE ♦ MNSQT * MNSOE ANOVl 

DIMENSION DEN ( 6 ) ANOVl 
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DIMENSION KOE ( 3 ) ANOVl 

EX1ERNAL TWOWTtTWOAVT.TWOAVB ANOVl 

DIMENSION 1SI6 < 2 ) STAT 

DIMENSION X<1) ' STAT| 

DIMENSION L.TEXT ( 120 ) t MTEXT(l20). XOUT<120> STA'H 

DIMENSION NDF ( 3 ) i S ( 3) « P<3). TM(3). WTV(3>« XMS(3>* 1PP ( 3) . IP2 < 3 > STAT 
DIMENSION 101(120)* 102(120)* LK ( 3 ) STAT 

EQUIVALENCE (IDEN*DEN) /'NOV: 

EQUIVAlENCE(X*XDATA) STAT 

DATA 101/120*1/* LK/3*0/ STAT 

DATA IPP/HhPKF ♦ 4HIN * 4HP0ST / STAT 

DATA IP2/8HPRE-1N ♦ AHlM-POST ♦ 6HPR E-POST/ STAT 

STAT 

FILL OUTPUT ARRAY STAT 

STAT 

DATA 1STAR/1H*/* IBLANK/1H /, ISAVE/4HSAVE/ .STAT 

DATA IPLUS/1H+/* IMINUS/IH-/* IPPL/2H++/* lHMI/2h — / STAT 

DATA IDATE/4-HDATE/. I V0LU/4HVCLU/ * IB0TH/4HB0TH/ STAT 

NOhS = NDATA STAT 

1 IF (NOBS - 1) 999* 999, p STAT 

2 LOOP = ITT STAT 

IDATEF = 0 STAT 

IVOLUF = 0 STAT 

IF ( JOB(2) .EG.IOATE) IDATEF = 3 STAT 

IF ( JOB (2) •EU.IVOLU) IVOLUF =3 STAT 

IF(JCB(2).NE,IB0TH) Go TO 3 STAT 

IDATEF = 3 STAT 

IVOLUF =3 STAT 

3 KKK = NOBS/LOOP STAT 

Call TEXT (LSTUnr ( 1 > * LTYpEd). lman(1)* ltestui. stat 

X KSTUDY, KTYPE * KMAN, KTEST « NITS) STAT 

CALL DATE(IWORD) STAT 

PRINT 1000* JOB ( 3 ) STAT 

1000 FORMAT (1H1.20X, 42HNASA MSC ENDOCRINE DAI A RLTREIVAL PROGRAM. ♦ 17/ ) STAT 

PRINT 500* LSTUDY ( 1 ) * KSTUDT*IW0RD STAT 

500 FORMAT { 7hOSTUDY * * 1 2 * 2X * A8»20X*A10) STAT 

PRINT 600* LTEST(l)* KTEST t LMAfJ ( 1 ) * KM AN STAT 

600 FORMAT (6H0TEST* , I3*2X A8 « 20x * 41 IMAN * * 1 4 ♦ 2X » A8) STAT 

PRINT 700. <LTYPE( I ) ♦ 1=1* ITP) DEC10 

700 FORMAT (6H0TYPE . . 2013) OEClO 

PRINT 800* NITS STAT 

800 FORMAT ( 15H0JULIAN DATE , AS) STAT 

DO 150 L=1 ♦ LOOP STAT 

L = 1 STAT 

LOOP =1 . STAT 

DO 210 I I=LOOP « NOBS « LOOP STAT 

I = II + L - LOOP STAT 

IPLACE = II/LOOP STAT 

210 XQUT(IPLACE) = XDATA(I) STAT 

STAT 

SORT BY DATE STAT 

STAT 

NOSlTS = NOBS/LOOP STAT 

NM1 = NOSLTS - 1 STAT 

00 230 I=1*NM1 STAT 

IMAX = 9999 STA1 

ISUti = I STA1 

DO 220 Jsl, NOSLTS STA1 

IF i IMAX-MDATE( J) ) 220,220*211 STAl 

211 IMAX = MDATE(J) STAT 
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I SUB = J S T AT 

220 CONTINUE STAT 

I TEMP = MDATE ( ISUB J STAT 

TEMP = XGUT(ISUB) * STAT 

MDATE { ISUB ) = MDATEd) STAT 

XGUTdSUB) = XOUTU) STAT 

MDATEd) = ITEMP STAT 

XOUT(I) = TEMP STAT 

230 CONTINUE STAT 

IG = L STUDY ( 1 ) STAT 

IVV d ) =IVV(2)=IVV< 3)=0 APR24 

I\, V ( 4 ) = iMOSLTS STAT 

UG 2*4 0 1 = 1* f'JOSLTS STAT 

IF (flC-ATE ( I ) .LE .DATESC (2* I G > ) 1VV(2> = I STAT 

IF (MOA1E d ) .LE.UATESC (3* TG) > IVV(3> = I STAT 

240 XL)ATA(I) = XOUTU) ' " STAT 

DO 133 1=1*3 STAT 

NFIKST = I V V I I ) + 1 STAT 

(ML AST = IW (I + 1) STAT 

CALL MESlG(LtEXT»NFIRsT*NLAST * SMEAiM * SIGMA ♦ NiM) STAT 

SSMEAMI) = SMEAN STAT 

SS1GMMI) = SIGMA ' STAT 

NM'HI) = NN STAT 

133 CONTINUE STAT 

NFIRST =1 STAT 

NLAST = IVUSLTS STAT 

CALL MES1G(LTEXT*NFIRST«NLAST*SMEAN*SIGMA*NIM> STAT 

STAT 

IF THERE ARE 2 OR MOHR PRE-FLIGHT OBSERVATIONS THE EXTREME VALUES STAT 
ARE FLAGEO ON THE BASIS OF PRE-FLIGHT MEAN AND STD. DEV. STAT 

OTHERWISE THE TOTAL MEAN AND STD. DEV . ARE USED. STAT 

STAT 

I F ( NNN ( 1 > - 2) 134.136,136 STAT 

134 SSG = SIGMA STAT 

SSM = SMEAN STAT 

GO TO 137 STAT 

136 SSG = SSlGMAtl) STAT 

SSM = SSMEAN { 1 ) STAT 

137 TO 1 = 2 . 3263*SSG STAT 

T05 = 1.6449*SSG STAT 

DO 166 11=1*3 STAT 

IF IRST = IVV ( II )+ 1 STAT 

IL AST = 1VV(II + 1) STAT 

IF (IFIrtSl -1 LAST > 162, 163*166 APR24 

163 PRINT 401 APR24 

40i format u single value not analysed*) apr24 

162 DO 165 I=IFIRST . ILAST STAT 

MTEXTd) = I8LAIMK STAT 

IFIXlIII 164*165,153 STAT 

153 DELTA = Xd) - SSM STAT 

IF(DELTA) 155*154*157 STAT 

154 iFfXd > .IjE.2.01 GO TO 164 STAT 

DELTA = SSM STAT 

GO TO 156 STAT 

155 DELTA = -DELTA STAT 

156 IF(DELTA.GE.T05) MTEXTII) = IMINUS STAT 

IF (DELTA. GE.TOl ) MTEXt(I) = IMMI STAT 

GO TO 164 STAT 

157 IF(0ELTA.GE.T05> HTFXTd) = IPLUS STAT 

IF (DFL.TA, GE.TOl > MTEXTd) = IPPL STAT 
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164 PRINT 40 Q ,MDATE < I ) . X < T ) , LTEXT(I), MTExT<l) STAT 

165 CONTINUE S T AT 

PRINT 900 i SSMEAN ( II > » SSIURA ( 1 1 ) , NNN (II) . STAT 

166 CONTINUE * STAT{ 

IF ( JOB { 3 ) - 1000) 150,145,145 STAT 

145 IF ( NN > 150 , 150 ♦ 146 STAT 

146 CALL STPLUT(LOOP*|\!OBS,ftSLOT»IWORD»KSTUOYiKTYpE»KMAN»KTEST»SMEA|\i» STAT 

X SIGMA) STAT 

150 CONTINUE STAT 

STAT 

ICASE = 0 NO TESTS STAT 

ICASE = 1 PREFL.IGHt ONLY STAT 

ICASE = 2 PKE AND INFLIGHT ONLY STAT 

ICASE = 3 ALL STAT 

ICASE = 4 PRE AND pqSIFlIGHT ONLY STAT 

STAT 

IF(NNMl)-l) 170*170,171 DEC1 

170 NT = 0 " STAT 

ICASE =0 STAT 

Gu TC 999 DEC1 

171 SSE { 1 ) = SSIG|4A(l)/SQpT(TLOAT(Ni\IN(l) ) ) STAT 

PRINT 30 0 0 » NNN ( 1 ) » SSmEAD( 1)« SSIGMA(l), SSt'(l) STAT 

3000 FORMAT (20(4 H J/23H PARAMETRIC ST AT I ST I C S . //8HGSUMM aRY/ STAT 

X39H0SAMPLE N MEAN SD SE/4H0PRE ♦ 16* 3F11.3) STAT 

IF < NNN ( 2 ) - 1 ) 172,172.176 nECl 

172 IF ( NNN ( 3 ) -1 ) 173,173,174 DEC! 

173 NT = 1 STAT 

ICASE = 1 STAT 

GO TO 999 DEC1 

174 SSE ( 3 ) = SSIGWA(3)/SQPTIFL0AT(NNN(3) ) ) ST AT| 

PRINT3010 ,NNM( 3 > , SSM^AlM < 3 > * SS I GMA < 3 ) , SSE<3> STAT 

NT = 2 STAT 

ICASE =4 STAT 

NN=NN-NNN(2) FIX2 

STAT 

GO TO 160 DEC1 

CHANGE THIS LATER STAT 

STAT 

176 SSL ( 2 ) = SSIGMA(2)/SQRT<FL0AT(Ni\IN<2) ) ) STAT 

PKINT3020 , NNN( 2 ) , SSMEAN12), SSIGMA<2), SSE l 2 ) STAT 

3020 FORMAT ( 4H0 IN ,I6,3F11.3) STAT 

IF ( NNN ( 3 ) -1 ) 177,177,176 OEC1 

177 NT = 2 STAT 

ICASE = 2 STAT 

NN=NN-NNN< 3) . FIX2 

GO TO 160 STAT 

178 SSE ( 3 ) = SS IGMA ( 3 ) /SORT ( FLOAT ( NNN I 3 ) ) ) STAT 

PR INI 30 10 , NNN ( 3 ) , SSMfAN< 3)» SSIGMA<3)« SSE l 3 ) STAT 

3010 F0KMAT<5HUP0ST,I5* 3FU .3) STAT 

NT = 3 STAT 

ICASE =3 STAT 

180 CONTINUE StAT 

SE = SIGMA/SORT {FLOAT ( NN) ) STAT 

PRINT 3030, NN, SMEAN, SIGMA, SE STAT 

3030 FORMAT ( 4H ,10(4H >/4H SUM * 16, 3F11. 3) STAT 

statI 

GET RID OF NEGATIVE VALUES STAT 

1 RANGES OVER ALL POINTS. STAT 

J RANGES OVER VALID POINTS. STAT 

STAT 
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J = 1 STAT 

00 330 I=1»N0SLTS STAT 

' IF(Xd)) 310,330,320 STAT 

310 IF t X ( I ) + 2.0) 330.315,330 ‘ STAT 

315 X(U) = 0.0 STAT 

J = J + 1 STAT 

GO 10 330 STAT 

320 X{ J ) = X ( I ) STAT 

J = J + 1 STAT 

330 CONTINUE STAT 

IF<ICASE.E0.4) 710.7H FIX 

710 IF (NNb<2) .EQ.l) GO TO 712 F I X 

GO TO 713 FIX 

712 NNN1=NNN( 1)+1 FIX 

NSLTM1 = J- 1 FIX 

00 179 I=NNNl . NSLT Ml FIX 

179 X ( I ) =X ( 1+1 > r IX 

713 iMMN ( 2 ) =NNW ( 3 ) FIX 

t\iNN<3)=0 FIX 

711 CONTINUE FIX 

IT01=JTOT=3 AiJOVl 

IF ( 1C ASE. EG .2 . OK . ] CASE • EQ • 4 ) ITGT=2 ' ANOVl 

IB=LMAN(1) AiviOVl 

Kl=0 ANOVl 

UO 699 IT=1 . ITOT ANOVl 

K=MIT , IG)=NNIM IT) 'AMOVl 

DO 702 1=1 . K ANOVl 

702 Y ( IT ♦ IB. 1 ) = X { I + K 1 ) AMOVl 

Kl=K+Kl AMOVl 

699 CONTINUE ANOVl 

CALL ACRD AN ( X t NT. NNN . TM» WTV. S. GM . NDF » IER ) STAT 

N1 = NGF(l) STAT 

N2 = NDF ( 2 ) STAT 

51 = S < 1 ) " v • ' STAT 

52 = S ( 2 ) STAT 

CALL FFOUT ( SI t S2 * N1 . N2 « FVAL » PRF V AL. ) STAT 

DO 193 IMS = 1 , 3 STAT 

193 XMS(IMS) = S(lMS)/NDF{lMS) STAT 

PRINT 3090 STAT 

3090 FORMAT » IX) STAT 

PRINT 3100 STAT 

3100 FORMAT (26H0ArjALYSIS OF VARIANCE TABLE. /35H0 OF SS STAT 

X MS F. /35H ) STAT 

PRINT 3200. f\lDF (1 ) , S ( 1 ) , XMS(l), FVAL STAT 

3200 FORMAT ( 6H TREAT. 14. piO.l. F10.1. F6.3) STAT 

PRINT 3300. NDF(2).S(2)»XMS<2) STAT 

3300 FORMAT (6HOERROR. 14. FlO.lt F10.1. 6H /4h 9(4H )) STAT 

PRINT 3400. NDF ( 3 ) ♦ S ( 3 > . XHS ( 3 ) STAT 

3400 FORMAT ( 6H TOTAL. 14. FlO.li F10.1. bH --- ) STAT 

PRINT 3800, FVAL, PRFVAL STAT 

3000 FORMAT (1H0.F7. 3. 23H IS SIGNIFICANT AT THE .F5.lt 14H PERCENT LEVSTAT 
lEL ) STAT 

IF < NT- 2 ) 999,850,624 DEC10 

824 IF ( PRFVAL - S. 0 ) 825, 625, 850 STAT 

625 Nl = 1 STAT 

PRINT 3500 STAT 

3500 FORMAT { 14HOCONTR AST F ) STAT 

P<1) =1 STAT 

P(2) = -1 STAT 

P ( 3 ) =0 FIX 
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CALL ACTkST (TPli NNNt 3t It Pi 1# Qi SQ) STAT 

CALL FF0UT(SQtS2tNltN2tFVAL*PRFVAL ) STAT 

PRINT 3600tlP2(l) ,FVAL»PKFVAL , FIX 

3600 FORMAT (lH0tA8tF6.3t23H IS SIGNIFICANT AT THE * tF5.lt FIX 

X15H PERCENT LEVEL.) STAf 

P<1) = 0 STAT 

P ( 2 ) = 1 STAT 

P < 3 ) = -1 STAT 

CALL ACTkST ( TM « NNN , 3t It Pt li 0, SC!) STAT 

CALL FF0UT(SGiS2tMtN2tFVALtPRFVAL> STAT 

PRINT 3600tIP2<2 ) iFVAl .PRFVAl FIX 

PCI) = 1 STAT 

P ( 2 ) = 0 STAT 

CALL ACTRST ( TMt NNNt 3t It Pt It 0, SGI) STAT 

CALL FF0U7 (SQtS2tNltN?,FVALtpRFVAL ) STAT 

PRINT 3600tIP2(3) tFVAt ,PKFVAL FIX 

B50 CONTINUE STAT 

851 NP = 0 ST AT 

DO 855 1 = 1 1 NT STAT 

NCDC = NNNt I) STAT 

DO 855 J = 1 1 NCDC STAT 

NP = NP + 1 STAT 

855 ID2 ( NP ) = I STAT 

IF ( ICASE.EU.4 ) GO TO 860 I.)EC1 

PRINT 4000 STAT 

4000 FORMAT < 1H0/20 < 4h )/?7li ImON-PARAi-iETRIC STATISTICS.) STAT 

C CALL KRUSkAL ( X t ID1 1 ID2 tNP t 0 t 0 t ImT t FINN t LK ) STAT 

CALL KRUSWAL (X t ID] t' 1 D? . NP t 0 1 1 1 NV t NMN » L.K t LK ) FIX2 

PRINT 1 1 00 t IP2 ( 1 > STAT 

1100 FORMAT < iho/iohocontrast , AO) STA It 

NP = NNrJ(l) + NNN ( 2 ) STAr 

C CALL KRUSUiAL(XtICltlD2trPtO,0. 2 1 NiJN t LK ) STAT 

IP I =2 FIX2 

CALL KRUSWAL ( X t IDl 1 1 Dp » NP i 0 1 1 1 2 1 NNN t LK t 1P1 ) FIX2 

IF ( ICASE.EG.2) GO TO 998 FIX 

NP = MNN(2) + NNN ( 3 ) STAT 

1ST = NNN(l) + 1 STAT 

PRINT llOOt IP2(2) STAT 

C CALL KRUSWAL( X (1ST ) , ini ( 1ST ) t ID2 t 1ST ) tNPt 0 t 0 * 2t Ni\!M( 2 ) t LK) STAT 

I P I =3 FIX2 

CALL KRUSWAL (X ( I ST ) » Ini ( I ST ) . 1 02 ( I ST ) t NP t 0 1 1 1 2 1 NNN < 2 ) . LK t IP I ) FIX2 

NCDC = NNN < 3 ) STAT 

DO 080 J=1 1 NCDC STAT 

K = NNN(l) + J STAT 

L=NNN< 1)+NNN(2)+J FIX 

X ( K ) = X ( L ) STAT 

I U 1 IK) = 101 ( L ) STAT 

880 ID2(K) = ID2 ( L ) STAT 

NP=NNN ( 1 ) +NNN ( 3 ) FIX 

NNN(2)=NNN<3) • FIX 

C CALL KRUSWAL(XtIDltlD2«NPt0,0t 2 1 NNN t LK ) STAT 

860 PRINT 1100 . IP2 ( 3 > DEC1 

IPI=3 FIX2 

IF ( ICASE.EQ.4) IPI=2 FIX2 

CALL KRUSWAL ( X t IDl t ID 2 .NP t 0 ♦ 1 1 2 t NNN t LK t IPI ) FIX2 

998 CONTINUE FIX \ 

IF ( IB . EO • 3 ) 701.999 ANOV 

701 MAXT=MAXb=3 ANOV 

MAXT1=MAXT+1 ANOV 

MAXB1=HAXB+1 ANOV 
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NAT'ET = 410 IT'L 

WAWLL-'s'oHASThO 

1WT=1 

UEivU )=K STUDY 
UEN(2)=KTLST 
IDE IMF ) =3nALL 

IF < l(ASF.tU.2 ) IDEM ( A > = IF2 ( 1 ) 

IF ( IC A St . t.u . 4 ) ] til IM ( 6 ) =IP2 ( 3 ) 

fid 70 3 J=i,JTOT 
L-U 704 1 = 1, I TOT 

Kr\=H ( I , J) 

PKloiT 70b, ( Y { I » J , h ) » Kr 1 ,Kk J 
7 OF FuRMAT (FI 2. 4 ) 

70 4 CONTINUE 
703 Cul.liriUE 

Phi 5*1 1000 » JOL ( 3 ) 

C AL L A fit* V 2 1' E ( 5" A > T , i 1 ' A X r- , IT 0 T * «J7 0 I , A , B , Ap , Gi » N , hi » V , LiU » V V , Y , NSUM I ♦ 

1 Su^Y L , NSUH J » SUMY J , SUMY 1 J , T AUHAT » BETH A T , THAT , PH A 1 , SUM I J « NAXT1 , 

2 FiAXUl) 

IF(IFT.LT.O) GO TO 99<? 

ALPHAS. 05 

797 F Uf i l • AT {///// >ib HANKED f-EA» CONTRAST 3 ( S-HE.T HOD ) Of. 3, A6, 

?. ASSUI' If'.G I'M O T i . T I FACTIOnLO/ 

5 -.i Al THE iii , F* 5 • 3 , L5 SIGNIFICANCE Lt VL L 70///) 

796 FOhiiAT ( m 1 oi , a A 1 0 ) 

799 FORMAT ( /////SC KAFKLO FEaIV CONTRASTS (S-hETHOD ) Of. ai,A6, 

2 3 AT THE a»F5.’,al S I Gfv I F 1 CANCE LEVEL S'///) 

WHITE (6. 796) I DEN 
W KITE (6,797) MAMET, ALPHA 

CALL SC HE Ft ( IT CT , TAUHa T t H T « II ill , ALPHA , hot , W W , T k O A V T ) 

UK I IE (6,799) N A Is FT , ALpf A 

CALL SCHFFH I TOT , T I ! A T , sll , T.TH1 , ALPHA , KOL , WIF , TUOUT ) 

WHITE. (6, 797) T A FEE , ALP) -A 

CALL SCHEFt ( jTuT , E ETI !/■ T • L IT , IT HT , ALPHA , KOt , V V » TkcAVB ) 

WK 1 TF ( 6 « 799 ) hi AT £ O , AL phA 

CAl-L SCHEFE (JTOT.BHAT , i, I T , 1 Th T , ALPHA ♦ KOL » VV * T WORT ) 

999 PHl imT 100 0 , JO 13 ( 3 ) 

KLTuhf. 

200 FORMAT (1 OX , Fl2 . 4 , 2X ♦ 2A1 ) 

300 FORMAT ( l3HG0H.AhD FEAN =,£10.3, ftH Su = ,F10. 3.7)1 T, =,I3) 

4 00 FORMAT ( 1 1 U » F 1 2 . 4 , 2 X * A 4 , 2 X , A2 ) 

900 FOKMATi 7H0HEAK =,F10.3, OH SO =,F1U.3,7H 14 =,13//) 

END 

S U l j K C U T I lv E WESI6 ( L TEXT , N F I R S 7 , f l LAST , SMEAIM , S 1SMA , I- N ) 

DIMENSION LTEXT(l) 

NN = 0 


SUM =0.0 

SSL = 0.0 

IF (UFIRST -NLAST ) 10,10,90 

in DO 140 I = f\lF 1RST , ML AST 

NSLOT = l 

CALL OTEST ( I ,SUTi,SSQ,r fi,l TEXT) 

140 CONTINUE 

IF'(Nli.EQ.O) GO TO 9 0 
STiL AN = SUF./MF 
SlbrtA= 0 . 

IF(NN.EQ.l) l<L TURN 

IF ( (fvN + SSU-SUF*SUN ) .Lr.O. ) RETURN 
SI Oh A = <(Nfl*SSK * SUF*SUH)/(UN+(NN 
KLT UK I? 


ORIGINAL PAGE IS 
OF POOR QUALITY 


1 ) ) ) * * 0 . 5 


AND VI 
ANOV1 
AITOV 1 
A. 70 VI 
A I -1 0 V 1 
AiiOVl 
A NO VI 
A 1 JO VI 
A I J 0 V 1 
ANOV1 
A NOV 1 
A NO VI 
A NO VI 
ANOV l 
A NOVI 
AMO VI 
AMOVl 
ANOV1 
ANOV 1 
A MO VI 
AMO VI 
A-IOV 1 
A MOV 1 
AMO VI 
ANOV 1 
AMO VI 
AJOVi 
A NO VI 
ANOV 1 
ANOV 1 
A i'JO VI 
AMO VI 
AMO V 1 
AMOV1 
AMOVl 
A NO VI 
DEC10 
DEC 10 
STAT 
STAT 
STAT 
STAT 
STAT 

mesig 

MESIG 

MESIG 

FiESlG 

NESIG 

APR24 

MESIG 

FESIg 
TICS I G 
T'ESIG 
OECIO 
t”i E S I G 
DEC 10 
OECIO 
DEC 1 o 
i“:ES 1 0 

p cs IF, 
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90 SMC AIM = 0.0 MESIG 

SIGH A = 0.0 t HESIG 

RETURN ' HESIG 

L'hil ! MESIG 

SUBROUTINE OTEST I I * SUR * SSG * NL * I.TEX T ) OTEST 

UlMEFvS 1 ON LTEXT(l) OTES1 

COMMON XDATA<150) * T ( 2 d 0 ) , IOPLOT, IFFF.KOT .KSKIP • LT »LM, LSTOP XREOuC 

L>Al A 1 Z/4M0 • 00/ * ISS /41 iSK IP/ * ILV/4tiIUVL/ OTEST 

UAl A 1 BLANK/4H / JAL25 

IF < XDATA ( I ) ) 310*410*510 OTEST 

310 1X1 = -XL 5 AT A { I ) + 0.5 OTESI 

IF ( 1XT - 2) 315.312*315 OTEST 

,31? LTEXim =1/ OTEST 

(JIM = bh +1 OTEST 

RLTuKI. OTEST 

315 LT LxT ( I ) = 1SS uTEST 

RETUFfv OTEST 

AID L T t X T ( I ) = ILV OTEST 

RLUJRL f< TEST 

510 WJ = M’J 4 1 OTEST 

LTKXT(I) = I BLANK OTEST 

SUN = SUN 4 XDATA (I» OTEST 

SSL = SSL 4 X C A T A ( I ) * v D AT A ( I ) OTEST 

RETURN ' OlEST 

ELL- OTEST 

SUBROUTINE UEKTST IJCRTST 

RETURN 'JURIST 

ELL UERTST 

SUE ROUTINE STPL.OT (LOCT'*MOBST * r-iSL OT « ILOKD , KSTUDY » KTYPE * KEiAh* KTF 1 ST * STPLlT 
X SNLAL.SloP'A) STI’LOT 

CO^NOL XL AT A ( 1 50 ) ♦ T ( 2 0 1> ) ♦ IOPLOT. IFTF.KOT * KSrU P * L T * LM * LSTOP ' XREDl./C 

COM”iOL/H 1 i liLK/L H I T < 15n) * M b A T t ( 150) * ISAV ( lb) , NT VOL ( 15U ) XREUyC 

COMMON /HEADER/ LSTLUy ( 10 ) « IS* t.UATE ( 150 ) « ID * LNAL ( 9 ) * IN, JOB ( 16) * Si PLOT 

. LTYPE [P 0) ♦ 1 1 P * L T E S T (125) * I T T « LSNP * NDA T A STPLOT 

DIMENSION YDATE (200 ) *>f (3) REDUCE 

CUiViCN/RO/ DATESC<3*5) , IVV{4> , SSMEAN ( 3 ) ♦ SSIGP'IA ( 3 ) * i\ii'ITi ( 3 ) STPLO'T 

C KEAl*B M STUDY * HT YT E « Hfci Aty* NTLST stplqT 

HEAL MSTUUYtPTYT- E , , NTLST STPLO’T 

KEAl KSTUDY* KTYPE. K!>'AL. ktlst* HITS stplot 

DIMENSION LSi'lAK 1 ( 7 ) STPLOT 

EQUIVALENCE (YDATE *T) STPLOT 

DATA NSMAN/4 *9* 8*0*1* ?*3/ STPLOT 

I F ( NOPST - 1) 911.911,1 STPLOT 

1 HFIRST = hDATE(l) STPLOT 

DO 1C IIsltNOBST STPLOT 

I F ( NT) ATE (II) - HFIRST) 9,10*10 STPLOT 

9 HFIRST = HD ATE (II) STPLQT 

10 YDATE (II) = HDATE(II) ’ STPLqT 

J1 = ROUST + 1 STPLOT 

J2 = LOHST 4 2 STPLOT 

CALL SCALE (XDATA, 3.0, 1-OL5ST « 1 ) STPLOT 

C XDATA (LOfcST 4 1) = 0,0 STPLOT 

IF ( XDATA (J2 ) ) 911*911,11 STPLOT 

11 IG = LSTUDY ( 1 ) STPLOT 

YUATFfIJUbST + 1) = DATF SC ( 1 * 1G ) STPLOT 

YD A IE: (i’iObST 4 2) = 24.0 STPLOT 

UP = ( DATESC ( 2 * IG ) - r ATE SC ( 1 , lb ) ) / YUATL ( koBST + 2) STpLqT 

OUWL=(l)ATEKC (3* IG) - pftTESC ( 1 * IG )) /YDATt ( I OBST 4 2) STPL()T 

XP(1) = 11. 1 stplot 

XP(2) = 0.1+ UP STPLOT 
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LTEST ( 1 ) , 


CALL 

call 

Call 

call 

CAL L 
CALL 


lOtKSTUOY 
1 C « KTiLST 


0 


0 , 

0 , 

> 0 * 


Of 

0 , 

A ) 


8 ) 
6) 


C 

C 


XP ( 3 > = 0.1+ DOWN 
■MTiC = 3 

i CALL TEXT (LSTUDYd ) t iTYPE(l), LMAN(1> 

X KSTUDY » KTYPE, KMAN, kTEST* NITS) 

KS = KSKIP - KSKIP/3*3 
IF(KS) 206*106,206 
10B CALL PLOT (4. 25, 10. 5, -3) 

106 CALL PLOT (8.50*10.5,-?) 

FPh = LTYPE(l) 

CALL SYMBOL (0.30* -.4*0 
SYMBOL ( 1 .20*-. 4* 0 
SY^LOL(2.00«-.4*0.10.4HTYPE, 

NUMB EH (2. 40 * - .4 , 0 . 10 * F P* l‘J * 0 . 0 , -1 ) 

SYMBOL (2. 60*-. 4*0.10*1 WORD*0.0*10) 

•or- CALL PLOT ( 0 . 0 , -3. 5, -3) 

AXIS(0.Q,0.0,12H JULIAN DATE, 

1 -1?, 4.0*00. 0»YDATF(J1 ) » Y D A TE. ( J 2 ) ,-1*4*3) 

CALL AXIS (X,Y*BCD*NC,SlZE.*THLTA*YHIN*DY*NDEC*NLAb*NTIC) 

CALL AX IS < 0 . 0 , 0 . 0 , lfcH DATA VALUE *16*3. U» 90.0* Y(J1)»Y(J2)> 

CALL AXIS(0. 0*0.0, NITS , 8,3.0, 90.0, XDATA(Jl), 

1 XL)ATA(J2)» -1* 4* 1) 

FPL = LMAN(l) 

CALL SYMBOL (0.10,3.01 ,0 
UU 308 J J=1 , 3 


07, KM AN, 0.(J» 3) 


308 


706 


811 


911 


KG = 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
LL = 
CALL 


4 — J J 

NUMBER ( XF' ( KG ) , 
NUMBER <XP< KG) , 
PLOT (UP, 0.0, 3) 
PLOT (UP, 3.0 ,2 ) 


2.89, 

2.77, 


07, 
i 07 , 


SSf'iEAN ( KG ) , 0.0, 2) 
SSIGMA(KG), 0.0, 2) 


0 , L L ) 


4 , 6HAPOL LOl 


PLOT (DOWN, 3. 0,3) 

PLOT ( DOWN* 0 . 0,2) 

NSMAN (LMAN( 1 ) ) 

L I iit ( Y DA T E , XE AT A , NOB ST » 1 , 

CONTINUE 

KSKIP = KSKIP + 1 

RETURN 

end _ 

SUBROUTINE TEXT ( LSTUD Y .LTYpE,LMAN, LTEST , NSTUDY , NT YPE * NMAN* NTLST , 

1 NITS) ’ „ 

PEAL* 8 KSTUDY , MSTUDY ( A ) , KTEST , MURN ( 124 ) , MbLU ( 24 ) , hi TS ( 124 ) , 

REAL KSTUDY * MSTUDY ( F, ), KTEST *MURN( 124) , MBLU (24) ,KilTS( 124 ) , 

1M1 T SB ( 24 ) ♦ K TYPE , MT YPE ( 3.5) , fltt, KITS 
REAL NSTUDY, NT YPE , N N A N » NTEST • KM AN, Mi MAN l 9 ) , NITS 
UATA (“STUDY/ OHS ME AT , GHSKYLAB 2,8HSKYlA 8 3,6HSp YLAD 

1/ 

data 

X4HC5 
DATA 
X 

X8H17GH 

X6HCA 
X8HB 
X8HZN 
X8HMN 
X6IIDHEA 
X6HL YS 
X6HTHR 
X8HCYS/2 
X8HPDL 
X 8 KEYS 


MMAN/4HCDR 

, 4l iCfi / 

( BURN ( i ) ,1=1,107) 
/d HEPI 
, 8 H 0 SM 0 
, 6HCL 
, 6 H S I 
» 8HT I 
, 6HL I 
, 8H11 =0 
tflHHlS 
♦8HSEK 
, t>HV AL 
, 8HHLYS 


, 4HPLT , 4liSP'T , 4HC1 ,4HC2 ,4HC3 ,4HC4 , 


, f hnorEpi 
, 6 HNA 


, P-HH 
, 8HFE 


, 6HADH 
, 8HK 

, 8HSP . GR . 
,8HAL 
, 8HSR 
, 8HPU 


, BHNI 
, BHRB 

ANn,8Hll=0ETIO,8HllOH 
, 6HNH3 , 81 IAH G 

tf-HGLU , 8HPRO 

,0HKET , 8HILE 

, RHGAMMA-AB, 8HURN 


,8HHYPK0 
,8 HMD 
,8 NCR EAT 
, 8HM0 
, 8HCR 
, 8 HAND 


, QHALDO 
, 8HP04 
, 8HURICAC ID 
,8hCU 
,8HBL 
* 8HE.TI0 


AND » 8H1 lOhET 10 * 8HT OT AL 

* 8HHYP ,8hASP 

* 8HGLY , 8HAL A 

,6HLEu ,8HTYR 

* 8HETH ♦ 8HNH3 


8H1-CH3HIS,».HH1S 


8H3-CH3HIS * 8HANS 


i 8 HTR Y 


STPLOT 
STPLOT 
STPLOT 
STPLCiT 
STPLOT 
STPLOT 
STPLOT 
STPLOT 
STPLOT 
STPLOT 
STPLOT 
STPLOT 
STPLOT 
STPLOT 
ST PLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPL.Ol 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

STPLOT 

text 

text 

text 

text 

text 

text 

7TEXT 
TEXT 
TEXT 
TEXT 
TEXT 
.TEXT 
, TEXT 
, TEXT 
, TEXT 

♦ TEXT 
, TEXT 
, TEXT 
, TEXT 

♦ TEXT 
, TEXT 
, TEXT 

. T F X T 
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n n n n 


X 6 HC RE 

« 8 HCAR 

. 6 HARG 

♦ 8 HPSER 

. 8 HPETN 

. 8 HTYR 

.TEXT 

X 8 HURLA 

. 8 HHYP 

. 8 HASP 

. 8 HTHR 

» 8 HSER 

« 8 HASP NH2 

.TEXT 

X 8 HC-LU NN2 

tOHSAK 

. pHPRO 

. 8 HGLU 

♦ 8 HCIT 

. 8 HGLC NH 2 

.TEXT 

X 6 HGLY 

. OHALA 

♦PHALPHA-AA 

, 8 HALPHA-AB 

* 8 HVAL 

. 8HCYS/2 

♦ TEXT 

X 6 HC YT 

•SHAFT 

.PHILE 

. 6 HLEU 

. 6 HTYR 

, 8 HP HE 

. TEXT 

XehE-ALA 

. 8 HB-AIB 

.PHGHIAA 

, 8 H 

. 8 H 

. 8 H 

/ JAN25 

DATA (MUKN(I) . 1=108. 1?4 )/ 




TEXT 

X 8 I. 

♦ 8 H 

, PH 

.PH 

. BH 

, OH 

« TE XT 

X 8 H 

» 6 H 

.PHCALORIES 

» 8 HPROT L IN 

. 6 HDIFT CA 

, BHD I El P 

♦ TEXT 

X 8 HPU.T MA 

tfjHLilET MG 

.PHPIET K 

. 6 HDIET H 20 

* 6 HWC 1 GHT 

/ 

text 

DAI A [' OLD 

/ 8 HHYURC' 

, 8 HAL DO 

, 8 )iHGH 

» 8 HANGI 0 

.811 INSULIN 

.TEXT 

X OHT4 

» 6 HAC TH 

, rHAUH 

, 8 HPTH 

. 8 HCAL 

. 8 HVIT.U. 

.TEXT 

X 8 HTSH 

, 8 HOSFO 

,PHNA 

. 8 HK 

. 8 HP'tG 

♦8HP04 

♦ TEXT 

XfcHCA 

. 6 HCL 

♦ PHGLU 

, 8 HTP 

♦8HTEST0S 

.OH 

♦ JAN25 

X 8 H 

/ 





TEXT 

DATA (MITSU ) «I=1«107) 




TEXT 

X 

/ 6 HUC/TV 

, pHl'G/TV 

. 8 HHU/TV 

» OHUb/T V 

. 8 HUG/TV 

. T P. X T 

X 6 HP G/TV 

1 8HH0SH/TV 

, phfeo/tv 

. 8HME0/TV 

t BHP'lEG/TV 

« 6 HMG/TV 

♦ TEXT 

X 6 MILG/TV 

i 8 HFEG/TV 

, pHML 0 

. 8 H 

. 8 HMG/T V 

. OHMG/TV 

♦ TEXT 

X 8 HUli/FL 

1 8 HUG/ML 

♦ ohlg/Nl 

, 8 HUG/IML 

. BHUG/NL 

. BriUG/POL 

. VEXT 

X 8 HUG/FL 

. BHl'G/PiL 

.ghug/nl 

. 8 HUG/ML 

, 8 HUG/ML 

, 8 HUG/ML 

.TEXT 

X 8 HU 0 /PL 

* 8 HUG /ML 

, PHUG/Ml 

, 8 HHG/TV 

. 8 HM&/T V 

. ohmg/tv 

.TEXT 

X BhNG/T V 

« 8 HR G/TV 

, P.HP' G/TV 

, 6 HMG/T.V 

. 8HNG/1 V 

, 8 HTMG/TV 

♦ TEXT 

XehP'G/TV 

♦ bll^G/TV 

, PHFMG/TV 

. 6 HHG/TV 

♦ 8 HMG/ IV 

. 8 HMG/TV 

.TEXT 

XftMhb/TV 

iGHMG/TV 

, AHMb/TV 

. 8 HMG/TV 

. 8 HMG/TV 

. 8 MMG/TV 

.TEXT 

X 8 HP b/TV 

t CHf'iG/TV 

, pHMG/T V 

, 6 IIHG/TV 

. 8 HMG/TV 

, 81 IMG/TV 

.TEXT 

X 6 HMG/TV 

. 6 HMG/TV 

. p.H w ’ 6 /TV 

. 8 MHG/TV 

. 8 HM 0 /TV 

, 8 HMMG/TV 

.TEXT 

XBUMb/T V 

» 8 HFG/TV 

, PHFG/1 V 

« 8 HP-IG/TV 

. SHMb/TV 

. 8 HMG/TV 

.TEXT 

X 8 HP&/TV 

♦ 8 HMG/TV 

, 8 HP'G/TV 

. 8 HHG/TV 

» 8 HMb/T V 

, 8 HHG/TV 

.TEXT 

X 6 HM V 1 G/T V 

t 8 HHG/TV 

, php-g/Tv 

♦ 8 HHG/TV 

. 8 HNG/TV 

. 8 HP-IG/TV 

.TEXT 

xsiimg/tv 

♦ OHFG/TV 

,PHP G/T V 

. &HMG/TV 

.PHMG/TV 

. 8 HMG/TV 

.TEXT 

X 8 HP G/TV 

. 8 HP G/TV 

, A HP G /TV 

♦ OHMG/TV 

. 8 HMG/T V 

. 8 HIMG/TV 

.TEXT 

X 6 HHb/TV 

« 8 HMG/TV 

,PHNG/TV 

. 8 )i: 1 G/TV 

.8HMG/1 V 

♦ 8 HMG/TV 

.TEXT 

X 8 hi*. b/TV 

tfiHMG/TV 

, PHNG/TV 

. 8 h 

» 8 H 

» 8 H 

/ JAPJ25 

DATA (HITS 

(I).l=108,l?4)/ 




TEXT 

X 8 H 

» 8 H 

ffcH 

» 8 H 

t 8 H 

.Oil 

♦ text 

X 8 H 

♦ 8 H 

.phkcal 

» 6 HGRAMS 

. 8 HMG 

. 6 HMG 

.TEXT 

X 8 HHG 

♦ 6 HMG 

,phmg 

« 8 HFIL 

18 HLBS. 

/ 

TEXT 

DATA HITSB/6HUG/1COHL 

.PHPG/ML 

. 6 HNG/HL 

. 6 HMUG/ML/F 

1 . 8HUU/P1L 

.TEXT 

X 8 hUG/ 1 0 OML 

♦ dH 

.pH 

. 8 HPG/NL 

t fiHPG/HL 

♦ SHNG/ML 

.TEXT 

X 8 H 

* 8HM0SM/L 

.phneq/l 

.8HNE0/L 

. 8 HHG PC 

. 8 HMG PC 

. JAN25 

X 8 HH& PC 

« 8 HNG PC 

,phfg pc 

, 8 HHG PC 

« 8 HUG/TV 

. 8 h 

. JAN25 

X 8 H 

/ 





TEXT 

NSTUEY = !“ 

STUDY (L.STUDY ) 




TEXT 

fVihAij = MMAN(LMAN) 





TEXT 

I F ( LTEST - 

400) 10*20 

.20 




TEXT 

KTEST = MBL D ( LT t ST - 

2 ^9) 




TEXT 

KITS = HlTSB(LTEST-29 

°) 




TEXT 

GO TO 30 






TEXT 

KTEST = hUKM (LTEST - 

399 I 




TEXT 

KITS = MlTS(LTEST-399) 




TEXT 

NT t ST = KTEST 





TEXT 

NITS = KITS 





TEXT 

RETURN 






TEXT 

END 






text 

SUBROUTINE 

KRUSWAL (XIP .IDl .IP2IH 

t b f iJCEN 1 JC P 1 K t Wb < ImC 1 I H2 ) 

setwrk 

THIS PROGRAF CALCULATES A GENERALIZED KRUSK AL-W ALL IS 

K-SAMPLE 

KRUSwAL 

TEST* WHE|\j 

k=2. the Test is equal 

TO GFHANSS 

generalized wilcoxon 

KRUSWAL 


TEST. CALCULATIONS FOLLOW THE PROCEDURES GIVEN BY MANTLL ( BI OHETR RKHUSW AL 
P'tARCh 1967) KRUSwAL 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IN CASE OF TWO-SAMPLE* IF THE, SAMPLE SIZES AKE DIFFERENT, IT IS 
SUGGESTED TO NAME THE ONE WITH LESS OBSERVATIONS SAMPLE 1. 

CALL NKRUSWAL(X , IDi, lD?,NALL,[\iC, JOP,NCOnD,NUI\)CEN,NCEN ) 


X ( I > » 1 = 1, NALL 
I Li X C I > = 1 
= 0 

1024 I ) =j 
NALL 

NC 

J0P = 1 
= 0 

ImCONT 
NUiiCEN ( I > 


ARRAY CONTAINING ALL ObS list THE SAMPLES 

ITH OPS IS UNCENSORED 

ITH ORS IS CENSORED 

ITH OPS. IS FROM JTH SAMPLE 

TOTAL NO OF OBS 

TOTAL NO OF CENSORED OBS 

print info 

CO NOT PRINT 
NO of SAMPLES 

NO OF UNCENSORED OBS IN SAMPLE I 


NCEN(I) NO OF CENSORED OBS IN SAMPLE I 

DIMENSION XI N< 1 ) , ID1 ( 3 ) , ID2lN( 1 ) ,NU(6> ,NC ( 6) ,XY (120 > ,102(12 0 
DIMENSION Rl( 600), R2( 600) 


) 


MAXIMUM NO. OF SAMPLES = 6. 

TOTAL NUMBER OF OBSERVATIONS ALLOWED '= 600. 
K = NO. OF SAMPLES 


MOVE I SSICOMM 1 MG ARRAYS TO WORK ARRAYS 
DO 1C! 1 = 1 »N 
XY( I )=XIN( I ) 

ID2< 1 )=ID2IN( I > 

10 CONTINUE 


ORDER OBS. IN ASCENDING ORDER 


KRUSWAL 

kruswal 

kruswal 

KRUSwAL 

kruswal 
kruswal 
kruswal 
kruswal 
krusw al 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
setwrk 

KRUSWAL 

kruswal 

KRUSwAL 

kruswal 

KRUSwAL 

kruswal 

SETWRK 

setwkk 

setwrk 

SETWRK 

setwrk 

kruswal 

kruswal 


ol 

90 


12 


11 


KRUSWAL 

CALL SORT 2 ( X Y * M , IP1 » ID? ) KRUSWAL 

COMPUTATION OF FI KRUSWAL 

STEPS 1 AND 2 l RANK FROM LEFT TO RIGHT , OMITTING RIGHT CENSOREOkRUSWAL 

VALUES. ASSIGN NEXT HIGHER RANK TO RIGHT KRUSWAL 

censored values kruswal 

kruswal 

IKANK=0 . KRUSWAL 


DU 90 1=1 ♦ N 

IF (iDl(i).EQ.O) GO TO 101 

IRANK= IRANK+1 

Kl< I ) = I RANK 

GO TO 90 

R1 ( I )= IRANK+1 

CONTINUE 

STEP 3 : REDUCE THE. RANK OF TIED 
RANK FOR THE VALUE 

K1=N-1 
Ll = l 

IF ( X Y ( Ll ) * ME * X Y ( L 1 + 1 ) ) GO TO 11 
JEMP=IU1(L1)*ID1(L1+1) 

IF ( JEMP » EG. 0) GO TO Jl 
K1(L1 + 1)=IU(L1) 

IF (LI. EG. hi) GO TO 13 


kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

KRUSwAL 

kruswal 

kruswal 

OBSERVATIONS TO THE LOWEST KRUSWAL 

kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 


L1=L1+1 
GO TO 12 

IF (Ll.EO.Kl) GO TO 
L1=L1+1 


13 


kruswal 

kruswal 

kruswal 

KRUSWAL 
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60 TO 12 

KRUSWAL 

13 

continue 

KRUSW al 

C 


KRUSWAL 

C 

COMPUTATION OF R2 

K R U S W A iJI 

c 

STL P 1 : RANK FROM RIGHT TO LEFT 

kruswal 

c 


KRUSWAL 


DO 14 I=1,N 

kruswal 

14 

k 2( i )=N-I+1 

KRUSWAL 

C 


kruswal. 

C 

STfP 2 : REDUCE THE RANK OF TIED OBSERVATIONS to THE LOWEST 

KANrvKRUSwAL 

C 

FOR THE VAi UE 

KRUSt AL 

C 


KRUSwAL 


L1 = N 

KRUSivAL 

22 

IF <XY<Ll).NE.XY<Ll-ln 60 To 21 

kruswal 


JLMP-IDI (LI ) «1D1(L1-1 ) 

krusw al 


IF (JfMP * E 0 « 0) GO To 21 

kruswal 


R21L1-1 )=K2(L1 > 

KRUSwAL 


IF (Ll.Ett. 2) GO TO 23 

• kruswal 


L1=L1-1 

KRUSwAL 


GU TO 22 

K K U S lu A L 

21 

If (Ll.EO. 2 ) GO TO 23 

KRUSwAL 


L1=L1-1 

KRUSWAL 


GO TO 22 

KRUSWAL 

23 

CONTI r UE 

kruswal 

C 


KRUSwAL 

C 

STEF 3 J REDUCE THE RANK OF RIGHT CENSORED UBSF KV AT I ONS TO 

UNITY KRUSWAL 

C 


KRUSWAL 


IF (NCEN *EO. 0) CO TO 501 

kruswal 


DO 24 1=1 ih 

F RUSwAL 
KRUSwAiI 


IF ClDl(l) .EO* 1) GO TO 24 


K2( I >=1 . 

kruswal 

24 

CONTINUE 

kruswal 

C 


kruswal 

C 

COMPUTE FINAL SCOht S - R 1 C I > 

kruswal 

c 


kruswal 

501 

CONTINUE 

kruswal 


DO 25 1 = 1 1 N 

kruswal 

25 

Rl( I)=R1( 1)-R?( I) 

kruswal 


iF(jOP.NE.l) GO TC 37 

kruswal 


PRINT 30 

kruswal 

30 

FORMAT ( 1H0 » QX i oil 5> « 8X i LOOSER VAT I ONSa) i 6X » oiSAMPLES' « E-a » DSC ORESa ) 

kruswal 


DO 31 I =1 * f > 

kruswal 


IF (iniU).EQ.O) GO Tn 34 

kruswal 


PRINT 33, ltXY(I) «ID2(T)«KKI) 

kruswal 


GO TO 31 

kruswal 

34 

PKInT 35, 1 ,XY ( i ) , ID2( I ) »Rl ( 1 ) 

KRUSWAL 

33 

FORMAT (1H ,bX,I3,7XiF8,l»15X,12»12X,FO.O) 

kruswal 

35 

FORMAT (IF' , 6 X » 1 3 , 7 X , F A . 1 ♦ 1H+ « 14X » 1 2 1 12X t F 6 . U ) 

kruswal 

31 

CUNTINUE 

kruswal 

37 

PRINT 36 

kruswal 

36 

FORMAT ( 1H0 ) 

kruswal 


IF (K.GT.2) GOTO 200 

kruswal 


CALL TWOSPL (R1 ♦ 1D2 » N . Mj t NC t IP 2) 
GO TO 1000 

FIX2 


KRUSwAL 

200 

CALL AKSPL(K,N,R1 ,NU,f- C«ID2) 

kruswal 

1000 

CONTINUE 

KRUSWAll 


RETURN 

kruswal 


END 

KRUSwAL 


SUBROUTINE SCRT2(X*,N,Tr tKI 

SORT2 


DIMENSION X ( 1 ),!{.»( 1 ), IT ( 1 ) 

rW- 

SORT2 



3 


2 

1 


C 


2F 


27 


C 

C 

c 


c 

c 

c 


305 

302 

301 


DO 1 1 = 1 « i\! 

J=N-1+1 

JJ=J-1 

If (JJ . LT . 1)60 TO 1 
DO 2 K — 1 , UU 

IF (XTK) .DC.XFU) ) GO 70 3 
IF ( IP<K)-1D< J) ) 4,2 ,2 
IF < X t K > .LT. >- < J ) ) Go- TO 2 
X 1-X ( J ) 

ITE.i i=T i) C J ) 

icifj=u: ( o > 

X ( u ) =X ( K ) 

I 0 ( J ) = I l) ( K ) 

IC(U>=ICtK) 

X ( K )=Xl 

I L ( n ) = I T t 'T 

1C(K)=IC1E 

CONTINUE 

COM IDOL 

KtTUKP 

E.NU 

GUDKO U r 1 ME. 1 wfiSPL. ( R 1 , T i -2 , P* , IMU , DC * 1 12 ) 

DIF l.K S 1 0 h 1 D2 ( 1 ) » F 1 ( 1 ) , PU ( 1 > » DC ( 1 ) 

DAl A OWE , I U'O/aOI'.Eoi * aT OOiT)/ 

UATm OWE/lOHOrX / 

DATA TWO/1 OH TWO / 

W W = 0 * 

DO 2b I = 1 , K 

IF ( 1 0 2 ( I ) .Eu. IP2 > GO TC 2b 

W W = In W + R 1 ( I ) 

COM 1 DUE 
SUF:=U . 

DO 27 I=1»M 
SUK = SL‘H + R1 ( 1 ) * *2 
Xivl = F:UU ) + PC ( 1 ) 

XI\)? = IMU ( 2 ) +F C ( 2 ) 

Xl\i=u 

VAK = XHl*XN2*SUF / ( X (M * ( X M - 1 . ) ) 

VrtK=SG«T ( VAR ) 

CALCULATE CONTINUITY CoRRLCT lop 
S 1 G i'J = - 1 . 

IF (Wk.LT.O.) 5- 1 Gl\i = l . 

COK= • 5 

IF t FLOAT ( (flC(l)+|;CI2))/M *LT . 0.2) COR = 1.0 

COR=SIGN*COR 

IF (WW.EG.P.) COR=0. 

CALCULATE F'lhAI W £ CORF ADD PROBABILITY . 

WSC OREs ( WW+COR ) /VAR 
WSC=WSCOKE 

IF l A P S ( fe S C U R t ) - 3 . 1 ) 305,305,302 
P1=1C0.*1 1 • “t’nfih ( WSf ) ) 

GO 10 301 
Pl = 0.1 
COLT I DUE 
P 2 = P 1 * 2 • 

P2 = Af*Ii\il IP2, 100. ) 


SORT 2 

SORT 2 

SORT? 

SORT 2 

SOKT2 

SORT 2 

SORT?. 

SORT? 

SORT 2 

SORT? 

SORT 2 

SORT 2 

SORT? 

SORT 2 

SORT? 

SORT 2 

SORT 2 

SORT 2 

SORT 2 

SORT? 

S0RT2 

FIX2 

TWOSPL 

TWOSf'L 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

FIX2 

TWOSPL 

TWOSPL 

TWOSPL 

T WOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSF’L 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

rwospL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 

TWOSPL 
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PRINT 600 » WW«VAR»WSCcRE TWOSPL 

60 0 FORMAT < lhiO » 3* • 1HW ♦ 7X * p.HST . UEV. , 3X , 1 OH AS YMPToT IC/25X * 6HWSC0RE/1X , M WOSF'L 
19.0,F8.2*7X,F5.2) DEC10 

PRINT 601* WSCORE, P2, TWO TWOSPL 

PRINT 601* WSC OR E * P 1 * fi|\jE TWOSPL 

601 FORMAT (lX,F5.2*lX*a)IS SIGNIFICANT AT THE a « F7.1,u) PERCENT LEVEL -TWOSPL 
1 a! * A 3 * Si TAILED TESTS) TWOSPL 

PRINT 602 TWOSPL 

602 FORMAT ( lhO ) TWOSPL 

RETURN TWOSPL 

END TWOSPL 

SUBROUTINE AkSPL ( K * N * R l . M ! , PC , IU2 ) AKSPL 

LINENS I ON FI ( 1 ) *i\tU( 1 ) ,|\:C ( 1 ) * W<6) , IU2< 1 ) AKSPL 

AKSPL 

TEST STATISTIC F OR KUiFFATER THAN 2) -SAMPLE CASE AKSPL 

AKSPL 

DU 201 1=1 *K AKSPL 

201 W<1)=0. aKSPL 

DO 202 I J = 1 * M AKSPL 

1 = 1 02 ( I J ) AKSPL 

202 M I )=U< I )+Rl( IJ) AKSPL 

T=0 . AKSPL 

DO 20 3 I u = 1 * M AKSPL 

203 T=T+K1 ( lu ) * *2 AKSPL 

*=D. AKSPL 

PRINT 300 AKSPL 

300 F OK hi AT ( lhO » aiS AMPLE Si * 8y * SIW ( 1 ) fi * 1 OX « aiN ( 1 ) ui ) AKS PL 

DU 204 I = 1 ♦ K AKSPL 

UC = WU(I)+NCm AKSPL 

PRINT 301* I,w(I)*UC AKSPL 

301 FOKrlATUh * 3X , 1 1 . 7X , F P . 0 , 7X ♦ P 5 . 0 ) AKSPL 

204 8=0+ ( W ( I ) **2/UC ) AKSPL 

PRINT 302* 8 , T AKSPL 

302 FORK, AT (lhO. SB = o' * F 12 , 2, 5* * &>T = ( Ti*F10.0> AKSPL 

WSC0KE=TB/T )*FLGAT(N-1 ) ’ AKSPL 

AKSPL 

WSCORE HAS. CHI-SQUARE rISTH IDUT ION WITH ( K - 1 ) D. f- . AKSPL 

AKSPL 

WS=WSC0RE AKSPL 

XK=K-1 AKSPL 

XM=uS/2. AKSPL 

I C = XK/2 • AKSPL 

SWS=SGRT(WS> AKSPL 

EM=1 * /EXP ( XM ) AKSPL 

PRINT 205* WSCORE AKSPL 

205 FORMAT ( lhO * 'WwSCORE = Si*F7.3> AKSPL 

XK2=XK/2. AKSPL 

IF ( ( XK2-FLOATT IC ) ) .Nr.O) GO TO 500 AKSPL 

SUh=0. AKSPL 

PROU=l. AKSPL 

DO 1 1=1, IC AKSPL 

IF (I.GT.l) GO TO 2 AKSPL 

XI = 1 AKSPL 

GO TO 3 AKSPL 

2 XI=I-1 AKSPL 

3 PROu=XI*PRGU AKSPL 

TERPi=XM**<I-l)/PRCD AKSPL 

1 SUM=SUM+TERM AKSPl 

CPR08 = SUh*Ei v i AKSPL 

P=1 00 . *CpROB AKSPL 


- 148 - 



o r> n o n r> 


IF (P.LT. 0.1000) GO TO 10 
PRINT 2 0b i WSCCRE»P 

206 FORMAT(lHO,F7.3,a IS SIGNIFICANT AT 
'GO TO ICOO 
10 P=U.10 

PRINT 12 , WSCORL.F 

12 FORMAT ( 1H0 , F’7 • 3 » ai IS SIGNIFICANT 
ltS PERCENT LEVELS) 

GO TO 1000 

500 GAMH=1. 7724536509 
TERM=SQRT ( Xil ) / ( 0.5*GA!“N> 

SUMsTERM 
NK= { XK-3. )/2. 

IF ( NR *EQ. 0 ) GO TO 502 
UO 501 1=1 i MR 
XI = 1 

TEKM=T ERM*2 . *XM/ ( 2 . * X i 4 1 . ) 

501 SUM=SUM+TEI\M 

502 CHISG= ( SUM* EM ) *1 0 0 • 

P2=l 00 • *2 • * ( 1 • “PROB ( Sl/S ) > 

P=P2+CHISQ 

IF CP. IT. 0.0005) GO TO 
PRINT 206, WSCOREiP 
GO TO 1000 
14 p = Li . 0 0 1 

PRINT 12, kvSCOKEtP 


AKSPL 
AKSPL 

THE a,F5.1,a PERCENT LEVEL3) AKSPL 

AKSPL 
AKSPL 
AKSPL 

WITH probability LESS than a t F7 • 5 AKSPL 

AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
PROB 
PROB 
PROB 
PROB 
PROB 
PROS 
PROB 
0CG03sPROB 
FROB 
PROS 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 
FFOUT 
FFOUT 
FFOUT 
FFOUT 
FFOUT 
FFOUT 
FFOUT 
FFOUT 
FISH 
FISH 
FISH 


1000 CONTINUE 
RETURN 
END 

FUNCTION PROB ( X > 

This FUNCTION ROUT IMF COMPUTES 

DISTRIBUTION FUNCT ION ( X ) IF X 6E 0 

1 - DISTRIBUTION FUNCTluNO ) IF X LT 0 

OF A ST. NORMAL VARIABLE USING APPROXIMATION Ef.2.19 P.932 

HANDBOOK OF MATH. FUNCTIONS 

DATA 01,D2,D3,U4,D5»D6/. 04 9*6673470, .0211410 0 61, . 0032776263 , . 
10036, .0000486906, .0000053030/ 

IF (X) 20,30,40 
30 PROb-0 .5 
RETURN 
20 Xl=-X 

GQ TO 50 
40 X1=X 

50 A=1 • +X 1 *( D1 + X1 *( P2 + X 1 * (D3+X1* I D4+X1 * (D5* XI *U6 > ) ) ) ) 

PROB=l ,-0.5*A** ( -16) 

60 CONTINUE 
RETURN- 
END 

SUBROUTINE FFOUT C SI, S2* Nl« 1,2 » FDAT . f ; KB ) 

FUAT = (Sl/Nl)/ (S2/N2) 

PRB= FISH(FDAT,N1,N2) 

PRB = (1.0 - PRB ) *1 00 . 

IF < PRP - 0.1) 1 ,2,2 

1 PRB = 0.1 

2 RETURN 
EmD 

FUNCTION F I S 1 1 ( F" , N 1 » N 2 ) 

LOGICAL El , E2 , E3 

IFCM.GE.100.AHD.N2.GF.100) GOTO 9 
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C FISH 

C INITIALlZAl ION AML' SETTING OF LOGICAL SWITCHES TO .TRUE. IF FISH 

C ThE DEGREES OF FREEDOM ARE EVEN FISH 

C FISH 

El=. FALSE. FISH 

E2=. FALSE. FISH 

E3=. FALSE. FISH 

I F ( nOL ( Ml * 2 ) »E G. 0 ) El= . TFUE » FISH 

IF (HGD(N2»2) .EO.O) E?= . TREE • FISH 

X=M2/ (N2+N1+F) FISH 

IF ( .MOI . (L1.0R.E2) ) GO TO 0 FISH 

IF < El .AND. .N0T.E2) 60 TO 1 FISH 

IF ( .MOT .El . AMD. £2 ) 60 TO 2 FISH 

IFIimI.LE.Iv?) GO TO 1 FISH 

FISH 

C IMI1 IM.IZAT ION FOR SEC Or F f E (HE F OF F FEE POM - EVEN AML LESS THAN FISH 

C FIRST DLGf EE OF FREE) CM lF II 100 IS t V t F F I SH 

1 SH 

2 isM . FISH 

N1 = N? ' FISH 

N2=I FISH 

X=1.C-X FISH 

L3=.TRIJE. FISH 

C FISH 

C INITIALIZATION FOh FIRqT L'EGkLE OF FREEDOM EVEN AND LESS THAN FISH 

C SE COND DEGREE t.iF F Rt FOG.>- IF IT is FVF'im FISH 

C FISH 

1 Y = l.(-X FISH 

fISH 

C CALCULATION OF FRO BAB i l ITT For AT LEAST ONE DEGREE OF FREEDOM EVENFISH 

FISH 

F1SH=0.0 FISH 

H=S0FT ( X**N2) FISH 

M=f' 1/2-1 f ISH 

MCDC = M + 1 FISH 

DO 3 ICDC=liMCDC FISH 

I = 1CDC - 1 FISH 

FISFi-FISh+H FISH 

3 h=(H*Y*(N2+2.*I ) )/ (2.* ( 1 + 1 . ) ) FISH 

IF ( L 3 ) GO TO <4 FISH 

fish 

C adjust CALCULATED PROBABILITY IF ITS ONES COHPlLMEM WAS FISH 

C CALCULATED ORIGINALLY FISH 

c fish 

TISri=l . O-FISH FISH 

RETURN FISH 

4 I=f:i . FISH 

N1 = IM2 FISH 

N2=I FISH 

RETURN , FISH' 



C CALCULATION OF THE PROBABILITY FOR BOTH DEGREES OF FREEDOM ODD FISH 

C FISH 

5 Y=1.0-X FISH 

H=. 63601977* SGf'T ( X * Y ) FISH 

FISH=.63661977*AC0S($rKT(X) ) FJSH 

IF(N?,E0.1) go TO e FISH 

M=M2-2 FISH 

UU 6 I - i ♦ M » 2 FISH 

FISH=FISh+H TlSH 
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6 H=H*X*( I+l)/(I+2> FISH 

8 IF(tol.EQ.l) RETURN FISH 

H=H*N2 FISH 

M*Nl-2 FISH 

QO 7 1 = 1 »h,fi FISH 

FISii-F ISH-h FISH 

7 H=H*Y*(N2 + I •»/< T+2) F ISH 

KtlJURtvf . FISH 

S U1=P1 FTSH 

D2=F2 ' FISH 

OT=(Di/D2)*F FISH 

ON = SQRT < ( 2 . *02-1 . ) *DT ) -SORT ( 2 » f D1 -1 . ) FISH 

■ X = Df'VSuRT( l.+CT) FISH 

F I SH=PH1 I X ) FISH 

RETURN fish 

ENp ■ FISH 

REAL FUNCTION Plil(X) PHI 

T — j. ti--^ — ? * PHI 

PH I 

PHI CALCULATES THE AREA UNDER THE NORMAL CURVE. pH I 

A TRANSFORMATION AND J-FrACTION ARE USED ( SLE METHOU ) pill 

PHI 



LOBJLAL UPPER PHI 

1F<X.LT,- A S.27> GO TO c ' PHI 

I F ( X • GT • 6 t 0 ) CO- TO 8 pm 

IM/.fE.O.C) Lu Tl 2 pHI 

PH 1 = 0 t 50 PHI 

RETURN . pm 

2 UPPER=X • GT • 0 » 0 PHI 

Z- I ABS I X ) ) pHI 

Y = 5.6416953027302E-1* EXP(” 2*2 /2.E0) PHI 

l = 2 21.4142135623731 F‘0 1 PHI 

T=0 * OF 0 pm 

IF( ABS(y/Z).GT t 0 # 0) T=*Y/U-fc. 91G5675616730E-6 PHI 

1 + 5, 0023350900 390 F-12 (? + ;L, 238679761 14Q9F -2 + 7 i> 726730 086 58 78E-1 pH I 

2/ (2-4 . 326396214 3 05 3£0 +7 . 34^62^77 J.6055L1/ (2 + 1 . 5U4G67l$64290El PHI 

3+6, 200624565723S6E 0 / { ? fR . 8*7 1612130791L0 +4 . 9 1 821 7184 5874E1 PHI 

f f/(Z-2. 51 06230 pt 95G9E0 - 2 . 8225972942737F 0 / ( 7-9 . 759791 7 308472E- 1 PHI 
5+2 .424421 35266 3 7E1 / ( / +4 . 80 0^570 12S0fl}Eb +4 . 92278539150 02E-1 PHI 

6/f 2+7. 66211 7Q92^661E0 +5 . 02856 1912£786L±/ ( 2-4 . 6529284$84fa55E0 PHI 

7 MI))))))) PHI 

T=T/2 . E0 pH I 

IF (UPPER) GO TO 4 - p HI 

PHI=T pHI 

RETURN pH I 

4 PHI-1. 0E0-T pHI 

RETURN r , H1 

6 PHI = 0.0 pm 

RETURN phi 

8 PHI = 1.0 PHI 

RETURN pm 

EKE PHI 

SYBROU 1 1 NE. ER)< OH E RROR 

COMMON /SISBUF/ I BUF ( 35 ) ♦ IUR ( 1 25 ) « IBL l 35 ) , IBUFF ( 30 ) * KEE j KEF « ERROR 

+ MF UNC « T F I L E. * I ERR ERROR 

COMMON FITHA1 (35) ,FITRA2(35) ,F ITRA3(35) ? FITRA4(35) FRROR 

GO TOI10O* 200*300, 400 ) IFIlE ERROR 

100 I ERR = IFLTCIKFITRAI ♦31. IPS) FRROF; 

CALL STOKEF ( FITRA1 , 31. TPS * 0 ) E RROR 
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n n n n n n 


aon 

300 

400 

500 

bOl 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


If 
I N 
1 01 

IN 


bu TO 500 

1F.RK r IFCTCH<F1TR A2.3LIRS) 

CALL STOREF (FlThAC « 3L (RStO > 

GO TO 500 

It kK = IFETCH ( F I TR A3« 3L.IRS ) 

CALL STOHEF(FITKA3.3LIPSiO) 

GO TO 500 

1ELRR = IFET CH ( F ITF A4 * 31 IRS) 

CALL STOKEF ( FITRA4 , 3LTRS* 0 ) 

If ( ILRR.EO.O) RFTLRN 
PRINT 601* iFILk . IERR.F EE, KEF 
RETURN "i 

Fuh1'AT(* i\A*»l3t* ERROR * tOlO * 21 1.0.) 

E N U 

SUi 'ROUT ILL AIM G V ? Nf ( M A X T i M A X b * 1 T OT . JT OT » A « R * F ♦ 0 . M » W » V ♦ W U ♦ V V . Y i 

[vGUFlt S l» r 1 Y I * |\tSUMt J ♦ SUp'iY J i SUMY I>J t T AUH AT » BETHAT * THAT ♦ 
3 BHAT«SUMlJtMAXTl,MAX6I ) 

TWO-WAY ANALYSIS OF VARIANCE WITH UNEQUAL NUMBERS PER CELL 

model 

Y(ltJ«K) - MU + T*U(n + RET A ( J ) + INTERACTION U , 0 ) + 


IN 


IN 


FCDEl ASSUMING ADplTJVUY 
Y ( i t J « K ) = MU + TAU(I) + RETA(J) + ERROR ( I » J i K ) 


SUBROUTINE ARGUMENTS \ 


IN 

IN 

IN 

IN 


Max i 
|1AXi> 

ITU 

JT L I 

A 

B 

P 

Q 

N 

W 

V 

vw 

Y 

Nis CM I 
SUMY I 
NSLii J 

SUN Y J 
SUNY I J 
TAUHAT 

bethat 

XI 

COMMON 

IDElvl 

NAME! 

named 

IWT 


M A X B 
M A X 1 

MAX LI 

M A X T 

I TOT 
JTOT 


A*TAUhAT 

r*he t hat 


OF SAMPLES 


MAX HIM FIRST DIMENSION OF Y • A » N » SUMY I J 
MAXIMUM SErOND DIMENSION Of Y » F I K S T OF- B 
i.UMf.L R OF TAU EFFECTS 
MJUMFfR OF BETA EFFECTS 

i j ; A X T BY M A V T WORK ARRAY TAU LpFECpS 

P,Y Mi Ay p WORK ARRAY BETA EFFECT:? 

WORK VECTOR 

Work vector ' 

BY MAXP (ACTUAL 1TOT BY JTOT) NUMBERS 
PEF CCLL 

WFIGHtS OF TAU LFFECTS (SELL lwT IN COMMON) 
WEIGHTS OF Lit I A EFFECTS (SEE lWT IN. COMMON) 

MAX ( ITCT , JTOl ) WORK VECTOR FOR WEIGHTS 
ITOT BY JTi'T BY MIiJl ARRAY OF DATA 

of r;d,j) -- sumli- on 1 

OF Y ( 1 1 J i K ) — — ^ G M ED ON K A N U I 
OF N(I»J) -- SUM EC ON J 
OF Y ( t » J ♦ K ) -- SUMED ON K AND J 
SUM OF Y ( I * J t K ) — SUMEL) ON K 


JTOT 

JTOT 

ITOT 

ITOT 

ITOT 

ITOT 

JTOT 


VECTOR 

vector 

VECTOR 

VE CTCP 


OF 

OF 

OF 

OF 


SUMS 

SUMS 

SUMS 

SUMS 


RY JTOT ARRAY OF 


TAU EFFECTS 
BETA EFFECTS 


VECTOR OF ESTIMATES OF 
VECTOR OF ESTIMATES uF 
MAXC ITOTt JTOT). WURK VECTOR 
BLOCK A0V2NF ARGUMENTS 

10 LENGTH VECTOR CONTAINING AOV TABLE TITLE (AO ALPHA) 

2 LENGTH VECTOR CONTAINING THE NAME OF THE TAU EFFECTS 

2 length vector containing the name of the beta effectsan _ 

IS li IF WFlGHTS WrV ARE TO BE 1/ITOT AND 1/.JT0T* RfSP.ANOV 
2, IF W,V AZE TO BE 1/NSUMJ ( I ) ♦ 1/NSUM ( J ) * RESP . ANOV 


error: 

ERROR 
ERROR 

error 

ERROR 

ERRfl 

ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ERROR 
ANOV 
ANOV 
ANOV 
ANOV, 
ANOV 
ANOV 
AijOV 
ANOV 

ERROR ( 1 * J *K J ANOV 
ANOV 
ANOV 
AuOV 
ANOV 
ANOV 
• AfJOV 
ANOV 

' ano 

AN 
A NO 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
AN 


-u V 

» 
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c 3 » IF U«v CONTAIN* ON CALL TO ANOVA2NE* THE WEIGHTS ANOV 
C TO BE USED ' AMOV 
C ' A IMOV 
C THE REMAINING COMMON BLOCK VARIABLES ARE VARIABLES CALCULATED IN ANOV 
C ONE OF THE TWO ANALYSIS OF VARIANCE TABLES PREPARED BY ANOV AZN ANOV 
C ANOV 
C AO V TABLE ONE CALCULATES WITH THE TAU EFFECTS ADJUSTED FuR UNEOUALAIMOV 
C CELL NUMBERS. . MMSGiT « MNSQE « MNSST ARE TYPED REAL AND NOT INTEGLANOV 
C ANOV 


C 

S . V . 

0 . F . 


s . s . 

H . S . 

F-RATIO 

ANOV 

C 







ANOV 

C 

MU » BETA 

JTOT 


SUMSQX 



ANOV 

C 







ANOV 

C 

TAD (AbJ.) 

TTOT-1 


TAU 

MNSft f 

FRATIO 

ANOV 

c 

NO INTERACTION 






AMOV 

C 







ANOV 

C 

ERROR 

IE KR 


ERROR 

mmsce 


AMOV 

c 

NO INTERACTION 






AMOV 

c 







ANOV 

c 

TAU (ADJ.) 

ITOT-1 


SST 

MMSST 

FSST 

ANOV 

c 







ANOV 

c 

interaction 

I NT 


, TIN 

TINT 

FI NT 

ANOV 

c 

EFFECT 






ANOV 

c 







ANOV 

c 

WITHIN CELL 

JTHT 


WITHT 

i-aT 


ANOV 

c 

ERROR 






ANOV 

c 







ANOV 

c 

TOTAL 

Mi SUM 


SUMSQY 



•ANOV 

c 







ANOV 

c 


\ 





ANOV 

c 

AO V TABLE TWO CALCULATES With 

THE 

BETA EFFECTS 'ADJUSTED 

FOR 

AMOV 

c 

UNEQUAL CELL 

NUMBFRS . MlVSQB ♦ MNSQBE * MMSSB ARE TYPE;) 

REAL 

ANOV 

c 







ANOV 

c 

S.V. 

D.F . 


S.S. 

N • s • 

F-RATIO 

ANOV 

c 







ANOV 

c 

MU* TAU 

ITOT 


suMsa r 



ANOV 

c 







ANOV 

c 

BETA (ADJ.) 

jTOT-rl 


BETA 

HIM SGb 

FRATB 

ANOV 

c 

NO INTERACTION 



) 



AMOV 

c 







AMOV 

c 

ERROR 

IERR 


ERR ORB 

MNSG BE 


AMOV 

c 

NO INTERACTION 






AMOV 

c 







ANOV 

c 

BETA (ADJ.) 

JTOT-1 


SSB 

MNSSd 

F SSB 

ANOV 

c 







ANOV 

c 

INTERACTION 

INT 


BIN ' 

bint 

FINB 

ANOV 

c 

EFFECT 






ANOV 

c 







AMOV 

c 

WITHIN CELL 

TTHT 


WITHT 

WIT 


ANOV 

c 

error 






ANOV 

c 

TOTAL 

NSUM 


SUMSQY 



ANOV 

c 







ANOV 

c 




l 



ANOV 


DIMENSION Y ( MAX T * 

MAXB.1 ) » N ( MAXT « 1 ) 

. nsum i(i) , 

MSUMJ(I) . SUMY 1(1) 

ANOV 


2 *G< 1 ) * A ( KAXT1 * 1 ) * TAUHAT ( 1 ) *Xl ( 10 * 1 ) 

♦ SUMiYui 1 ) 


ANOV 


DIMENSION SUMY I J| MXT.l )«GETHAT<1) 

* P ( 1 ) « B ( MAXB1, 1 ) 


AMOV 


DIMENSION W(l), 

V(l), WN(1). 

VV(1) 



ANOV 


DIMENSION IDEM 6) 






ANOV 


D I MENS ION THAT ( 1 ) * RhaT ( 1 ) 





ANOV 


REAL Ml J SSB 






ANOV 
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REAL ft IMS ST 

HEAL MNSQQ * MNSGBE 

REAL fti'MSGT * MNSGE • 

DIMENSION INIT ( 37 > 

EQUIVALENCE ( INITt 1) *SUMSGX > 

COMMON / AOV2NE / I DEN * NAME T * N AMEB » I WT * SUP SUX » 7 All * MNSQT * FR AT 10 * 

2 IERR « ERROR »MNSQE * SST « MNSST * FSST « IIMT * T IN* TINT , 

3 FI NT* ITHT.WITHT * iw I T t NSUM * SUMSuy « SUMSQT * BET At 

4 MNSQR * FR ATD * EKRORB * MNSQEE * SSP * P' IMS SR « FSSH * HI N » 

5 OlNT*FINB*PFRAT*PFSST*PF INT * PF R ATR * PFSSB * PF I NB 
DO 4 1=1*37 

4 I l\j 1 T ( I ) = 0 

in 06 FORMAT < ////ll)X * A P»fi) - - - WE IGHTS3/ ( 1 X * 6620 . 7 ) ) 

(,0 TO (210*220*240 )* IDT 

210 WT=1. /FLOAT ( ITGT) 

C 

C EQUAL WEIGHTS 

C 

DO 21 1 1=1 ♦ ITCT 

211 W l I ) =WT 
WT=l./FLOAT( JTOT) 

DO 212 J=1 * JTOT 

212 V ( J ) =WT 
GO ro 240 

C 

C PROPORT I UNAL WEIGHTS 

C 

220 SS5=0. 

PU 222 I=l»ITOT 

WT=0 . \ 

DO 221 J= 1 * JTOT < 

221 WT=WT+N<I*J> 

W ( I ) =1 */WT 

222 SSS=SSS+W<I) 

SSS=1./SSS 

DO 225 1 = 1 * I TOT 

225 W< 1 )=K< I )*SSS 

sss=o. 

DO 224 J= 1 * JTOT ^ 

WT = 0. 

DO 223 1 = 1 * ITOT 

223 WT=WT+N(I«J) 

V < J > =1 */WT 

224 SSS=SSS+V ( J) 

SSS=1 ./SSS 

DO 226 J = 1 « JTOT 

226 V( J)=V( J)*SSS 
GO TO 240 

240 WRITE (6* 1006) NAMET * ( W ( I ) ♦ 1 = 1 * ITOT ) 

WRITE ( 6* 1006) NAMEB* (V ( J 1 »J=1* JTOT) 

250 NSUM=0 
SUMI J=0 • 

SDMSGY =0.0 
C 

C FORM SUM OF SCUARps AND SUM OF N 

C AND SUM OF N ANO OF Y OVEK I 

DO 1 J = 1* JTOT 
IMSUMKJ) = 0 
SUMY I ( J ) =0.0 
C 


A NOV 
A NOV 
ANOV 
ANOV 
ANOg 
A NO* 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
rtiJUV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
AUCg 
ANO* 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
AwOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 
ANOV 

anov 

ANOV 
ANOV 
ANOV 
AN (| 
A(\10> 
ANO' 
ANO' 
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00 1 I = 1, I TOT A MOV 

iVSOH = NSUP + -N < I * J) M 0 '' 

NSUMKJ) = NSUM I ( J ) + M(I« J) ANOV 

SUMY1J( I i J)=0. A NOV 

K : Milt J) AN0V 

Li 0 1 IK = 1, K AMOV 

SUMSGY = SLMSUY + Y(I, J, lK) * Yd, Ji IK I AOOV 

SUHYI(J) = SLIKYIM) 4 Yd, J, IK) ANOV 

1 CONTINUE '■ ANOV 

IJT0T=IT0 T+JTGT ANOV 

I N T = 1 J T 0 T - 1 T OT-JTL-T + I ANOV 

ITMT = (wSUKi-I JTOT ANOV 

ITOlfl = 1 TOT +1 ANOV 

JT0TK1 = JTOT + 1 ANOV 

ITCV1=ITCT-1 ANOV 

JTG1 1 = JTC'T-1 ANOV 

1 Ll<R = f\ISOP- ITOT-JTOT + 1 ANOV 

ANOV’ 

CALCULATE AOV TABLE l r t;R AOjUSTEU TAU EFFECTS ANOV 

ANOV 

FORM SUP OF hi OVER J ARiU BEGIN TO FORM; 0 TO I-L USEO ANOV 

IN SOLUTION FOR TAU AMOV 

C ANOV 

UL 2 l = I* ITOT , ANOV 

NSUMJil) =0 ANOV 

SUPYJd) = 0.0 AI.IOV 

Gd) = 0.0 ANOV 

HO 20=1, JTOT .AMOV 

NSUMJd) = NSUMlJ(I) + N ( I * J) ANOV 

0(1) =0(1) 4 FLO AT { N (I , J ) ) * SUMY I ( J i /FLOAT (NSUMI (o) ) ANOV 

K = M d » J ) ANOV 

DO 11 IK = 1* K ANOV 

SUM.YIJd, J)=SUPY IJU ,J) •+ Y(IfJdK) ANOV 

11 SUNtJd) = SUFYJ(l) 4 v(i, J, IK) ANOV 

SUPIJ = SUP1J + SUMY Id ( I, J) ANOV 

SUM Y I J ( I » J ) = SUM Y I d ( I » J ) / F L. 0 A 1 ( K ) ANOV 

? CONTINUE ANOV 

SUMI J=SUMI J/FLOAT ( NSUr ) • ANOV 

WRITF (6*3000 ) SUMIJ ) ANOV 

WN I rt (6.3003) NAME T ANOV 

WRITE 16.3001) (SUMYJ< I ) .1 = 1 »1T0T ) ANOV 

WRITE (6.5004) NAM ET ANOV 

WRITE (6,3005) ( NSUMIJ { T ) , 1 = 1 » I TOT ) ANOV 

WRITE (6,3003) NAMES ANOV 

WRITF (6,50 01) (SUMY I ( J) ♦ J = l» JTOT) ANOV 

WRITE ( 6.3004 ) NAMLB - ANOV 

WRITF ( 6,3005) ( NSUMI ( J ) , J=1 , JTOT ) ANOV 

WRITE ( 6.3002) ANOV 

DU 500 1 = 1, 1 TOT ANOV 

WRITE. ( 6, 3001 ) (SUMYIJi I ,J) »«J=i, JTOT) ANOV 

500 CONTINUE ANOV 

WRI TE (-6,30 06) ANOV 

DU b 0 1 1 = 1, I T OT AMOV 

WRITE ( 6,3005) ( N ( I , J ) , J=1 * JTOT ) 1 ANOV 

501 CONTINUE ANOV 

3000 FORMAT OOMEAN EST 3,615.7) ANOV 

3001 FORMAT ( IX , 10G12.4 ) ANOV 

3002 FORMAT (fJOCLLL ME.AMS3) ANOV 

3003 FORMAT (306, A6.3 SUMS,? ) ANOV 

3004 F uRM A T ( 3 06 , AiR.ni NUMBER SUMiSS 1 ) ANOV 
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3005 FORMAT ( 1X«10I12) ANOV 

3006 FORMAT taOCELL NUMPERSa) ANOV 

ANOV 

CALCULATE WITHIN SUMS OF SQUARES ANOV 

ANi 

WlThT=U. AfJOw 

DO 12 1 = 1 , I TOT ANOV 

DO 12 J=ltJT0T ANOV 

K=MI,J) ANOV 

DO 12 I K-l i K ANOV 

12 WITHT=WITHT + ( Y ( I * J , I K ) -SUM Y J J ( I , J ) ) **2 ANOV 

IFUTHT.LE.O) GO TO 15 ANOV' 

IF ( WITHT . GT. 0 » ) GO TO 112 ANOV 

WRITE (6*113) WITHT ANOV 

113 FORMAT ( 3)0 ***** WITHIN CELL LhRUK IS <u,Glb.b,a ... PROCESSING ABOUANOV" 
2TED ***** 5) ANOV 

IWT =-l ANOV 

RETURN ANOV' 

112 WIT=WI. THT/FLOAT ( ITHT) ANOV 

ANOV 

FORM THE MATRIX A AND AUGMENT IT TO AST AR , A NuNSINGuLAR ANOV 

MATRIX IN THE FOLLOWING MANNER ANOV 

ANOV 

AUTOT X ITOT) 1 ( ITOT X 1) ANOV 

ASTAR = 1 ANOV 

1- ( 1 X ITOT ) 0(1X1) ANOV 

ANOV 

15 DO 3 IK = It ITOT ANOV 

DO 3 IS = 1. ITOT ANOV 

A ( IR« IS) = 0.0 ANO u 

DO 5 J = 1. JTOT ANI 

5 A(IR,IS) = A(IR.IS) + FLOAT (fi( IK, J)*N( ISu) ) / FLOAT ( NSUMl ( J ) ) ANGu 
A ( I K » IS) = -A(IR, IS) ANOV 

IF ( IR.EQ. IS) A ( I R , IS ) =FLO AT ( NSUM J < IR ) ) +A ( I R , IS ) ANOV 

3 CONTINUE ANOV 

ANOV 

ANOV 

UO 7 I = 1, ITOT ANOV 

AUTUTPI, I) = 1,0 , ANOV 

A ( I , ITOTP1 ) = 1.0 ANOV 

ANOV 

. FINISH CALCULATION OF Q ANOV 

Q(I) = SUMYJ(I) - Q(I) ANOV 

XI ( 1 , 1 j =Q ( I ) ANOV 

7 CONTINUE ANOV 

ANOV 

STORE 0 IN A ( MTOTP1 » NTOTPl) ANOV 

ANOV 

A ( I T Q T P 1 , IT0TP1) = 0.0 ANOV 

ANOV" 

CALL MATRIX INVERSION SUBROUTINE ON A ANOV 


CALL MAT I NV ( A » . ITOTP1, Xl, 0, UET , MAXT1 ) 

CALCULATE TAU 

00 8 I = 1, ITOT 
TAUHAT(I) = 0.0 
DO 8 J = 1, ITOT 

8 TAUHAT(I) = TAUHAT(I) + A(I» U)*Q(J) 




ANOV 

ANOV 

ANOV 

ANOV 

ANO w 

AN^ 

ANOV 

ANOV 

ANOV 
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c ANOV 

TALI = 0.0 ANOV 

DU 9 I = It ITOT ANOV 

9 TALI = TAU + TAUHAT ( I ) * Q(I) ANOV 

C ANOV 

C CALCULATE SUM OF SQUARES UUE TO MU AND BETA, UNADJUSTED ANOV 

C ANOV 

SUMSQX = 0.0 ANOV 

DO 10 J = 1, JTOT ' ANOV 

10 SUM SOX = SUMSQX + SUMyKJ) * SUMYI(J) /FLOAT (NSUNI (J) ) ANOV 

C ANOV 

C AND MEAN SQUARE Due TO TAU ANOV 

MNSjT = TAU/Fl-OAT ( ITOTJ > ANOV 

C ANOV 

C CALCULATE SUM OF SQUARES UUE TO ERROR ANOV 

ERROR - SUMSOY - SUMSRX - TAU ANOV 

IF ( ERROR. GT • C ) GO TO 100 ANOV 

WhlTE<6,101> ERROR ANOV ’ 

101 FORMAT { nj 0 ***** ERROR SUM OF SQUARES IS bl,GI5.6,o ... PROCESSING A A NOV 
POOKTEE **♦**' al) ANOV 

I W T = -? ANOV 

Rt.TURN ANOV 

100 MNSlsE =ERROR/FLOAT ( IERR ) ANOV 

ANOV 

FROM WHICH AN F-RATIO WITH ANOV 

(ITOT -1) AND (NSUh - JTOT -ITuT + 1) ANOV 

DEGREES OF FREEDOM ANOV 

.ANOV 

FRATIO = MNSQT / FNSQf ANOV 

PFRAT = FISH(FRATI0,IT0T1,IERR) , ANOV 

WRIT L ( 6*2009) IDEM ANOV 

WRITE (6, 200?) ANOV 

WRITE ( 6,2004 ) NAME D , JmT » SUMSQX ANOV 

WRITE (6,2005) NAME T , I TOT 1 , T AU » MNSGT , FR AT 10 » PFR A T ANOV 

WRITE (6, 2006) IERR, ERROR » MNSQE ANOV 

SSS=0. ANOV 

SST=0. ANOV 

WT = Ci. ANOV 

DO 14 1 = 1, ITOT -j ANOV 

SSR=0 . ANOV 

WW(I)=0. ANOV 

DO . 13 J=1 » JTOT ANOV 

SSR=SSR + V ( J)*SUMYIJ( l, J) ANOV 

13 MtamsUkim + V ( J)*V( j 1 /FLOAT (N( I , J ) > ANOV 

WW(I)=1./WW(I) ANOV. 

WT = WT + WW < I ) - ANOV 

SSS=SSS + L W ( I ) *SSR ANOV 

SSTrSST + WW ( I )*SSR*SSR ANOV 

14 THAT ( I )=SSR-SUMTJ ANOV 

SST=SST - SSS*SSS/WT ANOV 

MNSST=SST/FLOAT(ITOTl) ANOV 

IF < ITHT.LE.O) GO TO 16 ANOV 

FSST=MNSST/WIT ANOV 

PFSST = FISHtFSST, ITOTl, ITHT) ' ANOV 

16 WRITE. (6,2014) N AMET , ITOT1 , SST , MNSST , F SST , PFSST ANOV 

T IN=ERROR-W ITHT ANOV 

TlNT=TIN/FLOAT ( INT ) ANOV 

IF( ITHT.LE.O) GO TO 17 ANOV 

FINT=T INT /WIT ANOV 

PFINT = F ISH(FINT, INT, ITHT ) ANOV 
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17 WRITE (6.2012) INT.TIN.TINT .FINT.PF INT 
WRITE(6.2013) I THT , W I THT , W I T 
WRITE (6, 2003) NSUM, SUMSQY 
WRITE(6.2016) NAMET » '( TAUHAT ( I) , 1=1»IT0T) 

WRITE (6.2011) NAMET. (THAT) I ) . I=i,ITOT> 

WR1TE( 6. 2010 ) NAMET »OET 
C 

C CALCULATE AOV TABLE FOR ADJUSTED BETA EFFECTS 

C 

DO 53 I R= l.JTOT 
DO 53 IS = l.JTOT 
D(IR.IS) = 0. 

DO 55 J= 1, IT0T 

55 B(IR.IS) = B(IR.IS) + FLCAT(N(J,IR)*ti(J.iS)) / FIOAT(NSUMJ(J)l 
B(IR.IS) = -B(IR.IS) 

IF(IR.EQ.IS) B(IR.IS) r FLOAT < NSL'MI ( IR ) ) + B(IR. IS)' 

53 CONTINUE 

DO 52 J= l.JTOT 
P ( J ) = 0. 

DU 52 I = 1, ITOT 

p(j) = p(j) + float(n( r.J) ) * sumyju)/floaT(nsumj(I) ) 

52 CONTINUE 

DO 57 J=l.JTOT 
BCjTOTPl.J) = 1. 

B(J.JTOTPl) =1. 1 

C 

c finish calculation OF P 

P(J) = SUMYI(J) - P(j) 

XUj,l)=p(j) 

57 CONTINUE 

R( JTGTP1 . JTOTP1) = 0. 

C . 

CALL MATRIX INVERSION SUBROUTINE ON b 

CALL MATIN V(B»JT0TP1»X1 *0. DET . MAXBl ) 

CALCULATE BETA 

DO 58 I : l.JTOT 
6E7HAT (I ) = 0. 

DO 56 J = l.JTOT 

56 BETHAT(I) = BETHAT(I) + B(I«J)*P(J) 

beta = 0. 

DO 59 J = l.JTOT 

59 BETA = BETA + BETHAT ( j ) *P ( J ) 

CALCULATE SUM OF SOUARES DUE TO MU AND TAIJ , UN ADJUSTED 

SUMSGT =0. 

DO 60 I = l.JTOT 

60 SUMSGT = SUMSQT + SUMYJ(I) * SUMYJ(I) /FLOAT ( NSUMu ( I ) ) 

CALCULATE SUM OF SQUARES DUE TO ERROR ' 

LRRORB = SUMSQY - SUMsQT - BETA 

and MEAN sguare due To beta 
MNS uB =: BETA/FLOAT (JToTl ) 

and oue to Error 


ANOV 
ANOV 
ANOV 
ANT ' 

an! 

AN( 

AN( 

AN( 

AN( 

A l JC 

ANC 

ANC 

ANC 

ANC 

ADC 

ANC 

ANC 

ANC 

ANC 

ANC 

ANC! 

Ai'JO 

A NO 

A I jO 

ADO 

A NO 

A NO 

•A NO 

ANO 

ANQ 

ANC) 

ANO 

AMO 

ANO 

A NO 

ANO 

ANO 

ANO 

ANO 

ANO' 

ANO' 

ANO' 

ANO' 

ANO' 

ANO) 

ANO) 

ANO) 

ANO) 

ANO) • 

ANO) 

ANO\ 

ANO) 

ANO) 

ANO) 

ANO) 

ANO) 

ANOS 

ANOV 

ANOV 

ANOV 
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IF (ERROH6.GT.O. ) GO To 160 ANOV 

WK1 TF (6,101) ERRORR ANOV 

I wT=-3 • ANOV 

RETURN ’ ANOV 

160 MNSQRE=ERRORB/FLOAT ( IFPR ) ANOV 

C ANOV 

C AND F-RATIO AMOV 

FKATP - MNSGB / HIM SORE! ’ ANOV 

PFRATR = FISH (FRATB. JTOT1 * IL'RR ) . ANOV 

WR 1 TF (6, 2009) IDEM ANOV 

WRITE (6*2002) ANOV 

WRITE (6*2004) NAMLT* ITOTiSUMSQT ANOV 

■ to KITE <6* 20 0 5 ) NAMED , JTOT1 ♦ F ETA * MNSGB ♦ F R ATb.PFRA 1 f A NOV 

WRITE (6*2006) IERh t ERRqRR « MNSGBE ANOV 

WT=U. ANOV 

• SSP = 0 . ANOV 

SSS = 0. AIIOV 

00 64 J=1 , JTOT ANOV ’ 

SSK=0. ANOV 

VV(J)=0. aNOV 

DO 63 1 = 1 * I TOT ANOV 

SbR=SSK 4 SUMVI J( I * J) +1. ( I ) ANOV 

6? VV(J)=VV(J) + W < I ) *W ( J ) /FLOAT < N ( I t J ) ) ANOV 

VV ( J ) = i , /VV ( U ) t ANOV 

W7=WT + VV(J) ANOV 

SSS=SSS + VV ( J ) *SSR ANOV 

SSU=\SS8 + VV ( J ) ♦SSH*SSR ANOV 

64BHAT(J)=SSR-SUMIJ .ANOV 

SSL'rSSB-SSStSSS/WT Af\j Q V 

MNSSB=SSB/FLOAT ( JTOT1 ) . aNOV 

IF < ITHT .LE. 0 ) GO 10 66 ANOV 

FSSB=MNSSU/WIT A NOV 

PFSSB = FISH(FSSB* JTOT1 , ITHT ) A WOV 

66 WRITE ( 6 , 2014 ) NAME B * JTOT1 » SSB t HNS SB , FSSB , E FSSB ANOV 

B1N=ERK0RB-WITHT ANOV 

BINT=B IN/FLO AT ( I NT) . ANOV 

IF ( IT HT ♦ LE • 0 ) GO TO 6? ANOV 

F i N b = R I N T / W 1 T ANOV 

PFINE = F 1 SH ( FINB * INT « ITHT ) % ANOV 

. 6 5 ‘ W K 1 T E (6*2012) I NT * B IN , BINT * F 1 NR * PF 1NB ANOV 

WRITE (6*2013) I THT * W ITHT , WI T ANOV 

WRITE (6,2003) NSUK ♦ SU^SQY ANOV 

Wk1TL( 6,2016) NAME. B * ( rFTHAT ( J ) * J=1 * JTOT ) ANOV 

WR I TE ( 6 * 2 0 1 1 ) NAMER , ( RH AT ( J ) * U = 1 * JT OT ) ANOV 

wRITE< 6,2010) NAMEB * OFT ANOV 

RETURN • - ANOV 

2002 FORMAT (d)0c.).40X*SUNBALANCED TWO-WAY ANALYSIS OF VARIANCES/// ANOV 

21H ♦ 16X, 2HSV* 15X* 2HDF * 19X, 2HSS, 19X, 2HMS. 20X, 1HF* ANOV 

317X tSPROB F nl ) flN0V 

2003 FORMAT ( 1H0 , lOX, 5HTOTAL* 2 dX, 15, 15X, Gib. 7) ANOV 

2004 FORMAT ( 1H0 , 10X ,aiMU, S, A8 , 1 3x * I b » 1 5X , G 15 . 7/1 IX * h: ( UN AD JUSTED ) 3 ) ANOV 

2005 FORMAT ( 1H0, 10X, A6*S ( ADO . ) S * 1 OX , I 5 , 1 5X * 3 ( G15 . 7 , 5 a ) * G 15 . 7 ANOV 

2 / 1 IX , cDASSUNE ADDITIVES) ANOV 

2 0 06 FORMAT ( 1 W 0 * 10X * uiERRORf? , 20X * 1 5 * 1 5X * 2 ( G 15 . 7‘, 5X ) /I ly , S ADDIT I VES ) ANOV 

2009 FORMAT ( 1EI1 ////////// 30X,8AiiJ) A|VJ0V 

2010 FORMAT (/////, IX , AG * 51 EFFECT MATRIX DETERMINANT = S,G15.7) A NOV 

2011 FURMAT ( ////10X , SEST IMA TES OF D i, A6*S EFFLCTSS/ ( l X , 6G20 . 7 ) > ANOV 

2012 FORMAT ( 1 HO * lOX , SI NTER A C T I ONS * i 4X * 1 5 , 1 5X * 3 ( G15 . 7 , 5X ) *G15.7) ANOV 

2013 FORMAT ( 1H0* IOX.SWITHIm CELL. ERRORS . flX * 1 5 » 1 5X , 2 ( G1 5 . 7 , 5X ) ) ANOV 

2014 FURMAT ( 1H0* 10X, A6 * S ( ADO . ) S ♦ 11X , 1 5 * 15X * 3 { G1 5 . 7 , 5X ) * Gl5 . 7 ANOV 
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2 /llXiffltWEIGHTErnai) anov 

2016 FORMAT ( ////l OX » alESTIhflTES OF a), A8,ui EFFECTS ASSUMING WO INTERAC f ANOV 
2IOfW/ ( IX ♦6G20. 7) ) . ANOV 

EM) ANOV 

SUBROUTINE HATINV ( A , N , R »M • QETERM,MAX ) N& 

DIMENSION IPIV0K21), A ( M A X * 10), EH10« 1), INDEX (21, 2), MATT 

2 PIVOT (21) MATV 

EQUIVALENCE (I ROUi , JROW ) , ( ICOLUMI ♦ JCOLUM ) , ( AM AX * I, SWAP) MATV 

c initialization watv 


m DETER M=1,0 
15 DO 20 J=ltN 


M ATV 
NAT V 


20 IPIVCT { J) = 0 


NAT V 


30 DO 550 1 = 1 ,N N A T V 

C SEARCH FUR PIVOT ELEMENT :.aT V 

40 AhAx=0 • 0 NAT V 

45 DO 105 J=1,N h; ATV 

50 IF ( IPIVOT ( J)-l) 60, if)5, 60 ’'’A1V 

6 0 uO 111(1 K=ltN r-.ATV ' 

70 IF ( IPI V01 ( K ) -1 ) 60, 1 00, 740 R ATV 

80 IF ( At S ( Ah AX ) - ABS ( A ( J , h ) ) ) 85 » 1 0 0 , 10 (J hATV 


85 £ROW = J I-aTV 

90 1C.0LUN=K hATV 

95 AhAX=A(J,K) • hATV 

100 CON 1 I CUE f ATV 

105 continue • ’ patv 

lie IPIVCT < ICOLUFt ) = I PI VCT ( JCOLUM ) +1 f A T V 

c ii-T ef change rows iq put pivot f.lfmeht cw iiagonal hatv 

13U IF < IFOW-ICOLUM) 140, 260, 140 f.ATV 

140 l)ETEFT“i = -DETERM >lATV 

150 UU 200 L=1,N MATW 

160 Sli AP=A ( IRON » L ) >,A| 

170 A ( IhGW , L ) = A ( ICOLDM , L ) hAnr 

200 A ( 1 CGI UM * L ) =SW AP hATV 

205 IF(I'I) 260, 26 0 » 210 hATV 

210 DU 250 L=l, M MATV 

220 SWAP = B ( IRON * L ) hATV 

230 LM IR0W,L)=B( IC0LUM,U ' hATV 

250 B( ICGLUM,L)=SWAP MATV 

260 INDEX ( I , 1 >=IROW f.;ATV 

.270 IwUEX ( I,2)=iC0LUM ' u A T V 

310 P IVDT ( I >=A( ICOI.UM, ICOt DM) hATV 

320 DETCRK=OETERM*PIVOT<I ) hATV 

C DIVIDE PIVOT ROW BY PIVOT ELEMENT hATV 

330 A(ICCLUMi,ICOLUM) = 1,0 hATV 

340 DO 350 L=1,N M ATV 

350 A ( ICCL.UM,L )=A ( ICOL.UM,L ) /PIVOT ( I ) MATV 

355 IF(M) 380, 380, 360 MATV 

360 DO 370 L=1 1 M . MATV 

370 B ( ICCLUM.L )=B ( ICOLUI'Ut l/PIVOT ( I ) MATV 

C REDUCE NON-PIVOT ROWS MATV 

380 Du 550 L1=1»N hATV 

390 IF ( L1.-ICOLUM ) 400, 550, 400 hATV 

400 T=A(L1, ICULUM) MAT V 

420 A(Li, ICOLUM)=0.0 1 MATV 

430 DO 450 L=1 ♦ N MATV 

450 A(L1,L)=A(L1,L )-A( IC0LUM*L)»T MATw 

455 IF ( M ) 550, 550, 4fc0 MA 

460 DO 500 L=1 » Ml hATV 

500 B(L1,L)=B(L1,L)-B(IC0LUM,L)+T MATV 

550 CONTINUE MATV 
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C INTERCHANGE COLUMNS MATV 

600 DO 71 0 1 = 1 * N MATV • 

610 L=M+1-I MATV 

620 IF ( INDEX (L » 1) - INDEX Cl. » 2 ) ) 630 « '710, 630 MATV 

• 630 JROIm = INDEX! L » 1 ) MATV 

640 JCOLUM=INDEX(L ,2) MATV 

650 DO 705 K=1,N MATV 

660 SWAP=A (K , JROW) MATV 

670 A(K, JROW)=A(K»JCOLUH> . MATV 

700 A ( K , JCOLUM ) = SWAP - MATV 

706 CONTINUE MATV 

71 C CONTINUE MATV 

. 740 RETURN MATV 

END MATV 

FUNCTION TWOAVT(EMS* JsU'B » N2 » ALPHA , W , 1 1 , 1 S > FUNCTS 

COMMON Di:H(357> ,Y(729) ,A<4,4), 6(4,4) FUNCtS 

TwGAVT=SOKT <E:MS*J£UO*fISHIN( ALPHA, USUB,N2)*(A( II, II ) -2.*A< II, IS) FUNCTS 
2 +A ( IS , I S ) ) ) FUNCTS 

RETURN FUNCTS 

END FUNCTS 

FUNCTION TW0AVB(EMS,JSltH,N2»ALPHA,W,II,JLS) FUNCTS 

COMMON DUM(357) ,Y<729) ,A(4, 4) ,8(4,4) FUNCTS 

TWCAVB=SGRT(EMS*USUR*FISHIN< ALPHA, JSUR,N2)*(R( II, II >-2.*B< I I, IS) FUNCTS 
2 +P<TS,IS>>) FUNCTS 

RETURN FUNCTS 

END - FUNCTS 

FUNCTION TWOWT ( EMS , JRL'B . J\i2 » ALPHA « W , II, IS) FUNCTS 


DIMENSION W(l) - FUNCTS 

TW0WT=SQRT(EMS*JSUB*FlSHIN(ALPHAtJSUB,N2)*(l./W(II) + 1 . /W ( IS ) > ) FUNCTS 
RETURN FUNCTS 

END FUNCTS 

SUBROUTINE SCHEFE ( K , T MEANS , EMS , N2 , ALPHA , KOE , W , FtiljM ) SCHEFE 

SCHEFE 

SCHEFFEa'S CONTRASTS For significant differences in means SCHEFE 

SCHEFE 

k=number of means to be tested tmlans=veltcr of means to be tested SCHEFE 
EMS=ERROR mean SQUARE (DENOMINATOR OF F TEST) SCHEFE 

N? =ERROR DEGREES OF FREEDOM SCHEFE 

FDUM IS A DUMMY EXTERNALLY DEFINED FUNCTION TO CALCULATE CONTRAST SCHEFE 
FOR STANDARD OUTPUT (K.LE.lO) ALL MEANS HAVING THE SAME LINE UNDER THESCHEFE 
ST AT 1ST AC ALLY THE SAME. SCHEFE 

DIMENSION TMEAMS(K)' ,PRINT(20) ,K0E(1) »W(1) SCHEFE 

DATA BLANK /6H /,XLINE / faHXXXXXX / SCHEFE 

ISAVF2=0 SCHEFE 

C RANK MEANS FROM LOW TO HIGH ' SCHEFE 

CALL OROEfOM TMEANS, K,kOE> SCHEFE 

WRITL(6,5l) (KOE( I ) , 1=1 ,K) SCHEFE 

51 FORhATO a, 10 ( 6X , 12 ,4v ) ) SCHEFE 

WRITE (6,55) ( TMEANS ( I ) , I = 1»K > SCHEFE 

53 FORMAT ( IX *10G12.6) SCHEFE 

C DO COMPARISONS SCHEFE 

ISTOP=K SCHEFE 

25 ISM1=IST0P-1 SCHEFE 

DO 24 1=1,20 SCHEFE 

24 PRINT < I )=BLANK SCHEFE 

DO 50 1=1,1 SM 1 SCHEFE 

I S A V L = I SCHEFE 

JSUR= I SM i “ I + 1 SCHEFE 

29 IF ( ISAVE2.LQ. I )GO TO 31 SCHEFE 

hANGL = TMEANS ( ISTOP ) -TMf ANS ( I ) SCHEFE 
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II=l\OE<I> SCHEFE 

IS=KGE < ISTOP) SCHEFE 

S=FQUM { EhS ♦ JSUB * N2 * ALPHA * W « 1 1 * IS ) SCHEFE 

.IF(RANGE-S) 34*34*30 SCHEFE 

30 CONTINUE SCHEFEJ 

31 ISToP= I STOP- 1 SCHEFE 

If- ( ISTOP. EC. 1 >G<J TO 99 SCHEFE 

GO TO 25 SCHEFE 

34 IF (K.LE.10 )GO TO 35 SCHEFE 

WRITE (6*33) ALPHA « ( THE AMS ( KKK ) , KKK=ISAVE * ISTOP ) SCHEFE 

33 FOr.FiA T ( cull THE FOLLOWING MEANS ARE . STATISTICALLY THE SAME AT THE ojSCHEFE 

g »F5.3»a ALPHA LEVELS ,/, C 1 0G12 . 6 ) ) SCHEfE 

GO TO 36 SCHEFE 

35 00 37 I = 1 SAVE ♦ I STOP SCHEFE 

I i=2* I SCHEFE 

P K 1 1 , T ( 1 1 - 1 ) = XL I I E SCHEFE 

37 PRINT (II) = XL.INE SCHEFE 

WRITE (6*52) (PRINT(KK) ,KK=1,20 ) SCHEFE 

36 IF t I SAVE • EG • 1 ) GO TO 99 SCHEFE 

ISAVt 2 = ISAVE. SCHEFE 

Gu TO 31 SCHEFE 

99 RETURN SCHEFE 

52 FORMAT! fit 2 1 20 A6 ) SCHEFE 

LUO SCHEFE 

SUBROUTINE OF DERM ( X *r«KOE ) ORDER 

DIMENSION X ( M ) «KOE(fj) ORDER 

M*=K ORDER 

Kl=? ORDER 

BO oC 1=1 *HN ORDER 

60 KOL ( 1 ) = I ORDER 

A DO 99 IsKltWN ORDER 

if (x ( i > .LT.xd-n ) goto 76 order 

99 CONTINUE ORDER 

RETURf ORDER 

76 DO 62 K= 1«NN ORDER 

IF C X C I) .LT.X(K) ) GO To 64 ORDER 

62 CONTINUE ORDER 

64 2 = X ( 1 ) ORDER 

KK=KOE(I) ORDER 

11=1-1 ORDER 

DO t)6K J = K *11 ORDER 

0=K+I 1-K J ORDER 

KUE( J+1)=K0E(U) order 

86 X(J+1)=X(J) ORDER 

X ( K ) =2 ORDER 

KOE ( K ) =KK ORDER 

K 1= I +1 ORDER 

IF (Kl.GT.NN) RETURN ORDER 

GOTO 4 ORDER 

END ORDER 

FUNCTION FXSHIN(*LPHA«N1iN2) FISHIN 

- FISHIN 

CALCULATES THE INVERSE 3F@ VALUE GIVEN THE CONFIDENCE COEFFICIENT FISHIN 

ALF^A AND THE DEGREES OF FREE DOM ( N ) . FISHIN 

FISHIN 

Y l = i\il FISHIN 

Y2=N2 FISHIN 

; FISHIN 

ADJUST FOk DEGREES OF FRFFDOM EuUAL TO 1 FISHIN 

FISHIN 
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IF < Nl.EQ.l > Y 1=2 FISHJN 

IF(f'J2.EQ.l) Y2=2 FISHlN 

------ fishin 

C CALL PHINV TO GET INVERSE NORMAL VALUE OF 1. -ALPHA FISHIN 

-- : fishin 

X=FHINV ( 1 .-ALPHA ) FISHIN 

C FISHIN 

C COMPUTE L AMU A VALUE FISHIN 

C FISHIN 

Y= ( X* * 2- 5 » )/6* FISHIN 

IC=0 FISHIN 

c ..... FISHIN 

C COMPUTE THE INITIAL APPROXIMATION TO THE INVERSE iilFSi FUNCTION FISHIN 

C FISHIN 

Y1=1./(Y1-1. > FISHIN 

Y2=i./(Y2-1. ) FISHIN 

H=2 . / ( Y1+Y2 ) FISHIN 

X = X*SGRT ( H + Y ) /U- ( Y 1- Y? ) * ( Y + 5 . /& . -2 • / ( 3 • *H ) ) FISHIN 

X = EXF'(2.*X) FISHIN 

C-- FISHIN 

C COMPUTE THE CONSTANT TO THE 3Fni DISTRIBUTION* TESTING FOR Ml AND/OP N2FISHIN 
C ODD OR EVEN. FISHIN 

C- - --FISHIN 

6=1. FISHIN 

lb 1=2 FISHIN 

IF (MOD (Ml, 2). EG. 0) GO TO 1 FISHIN 

0=1.772*4539 FISHIN 

1 131 = 1 .FISHIN 

1 162=2 FISHIN 

IF ( MOD ( N2 » 2 ) . EG . 0 > GO TO 2 FISHIN 

0=6*1.7724539 FISHIN 

IB2=1 FISHIN 

2 IB3=2 FISHlN 

IF 1 MOD ( W1+N2 « 2 ) . EG • 0 ) GO TO 3 FISHIN 

G = G/1 .7724539 FISHIN 

103=1 FISHIN 

3 IF ( (IB1+IB2) .ME. 2) G=?.*G FISHIN 

IF C (M+N2KLE.3) GO TO 5 FISHIN 

I\I0=N1 +N2-2-IB3 FISHIN 

NU1 = NO + 1 FISHIN 

DO 4 II=1»N01*2 FISHIN 

1=11-1 FISHIN 

IF< (IB1 + IJ.LE. (Nl-2) ) G=G* ( I fal + I ) FISHIN 

IF( (IB2+I ) .LE. (N2-2) ) G=G*(IB2 + I) FISHIN 

4 G=G/(IB3+I) FISHIN 

c FISHIN 

C COMPUTE THE VALUE OF FISHIN FISHIN 

FISHIN 

5 Y2=N2/(N2+N1*X> FISHIN 

Yl=l.-Y2 FISHIN 

Y = 1 .+ < G* ( 1 ,-ALPHA-FISh(X*MlH'.i2 ) ) ) /SORT (Yl**i\il*Y2**f]2) F I SHIN 

F1SHIN=X*Y FISHIN 

FISHIN 

C IF FISHIN IS NEGATIVE* RESET FISHIN TO .5*LAST APPROXIMATION X ) . FISHIN 

FISHIN 

IF(Y.LT.O.) F ISH 1N= • 5*X FISHIN 

FISHIN 

C IF THE ABSOLUTE VALUE OF THE DIFFERENCE IS LESS THAN .5E-6, RETURN FISHIN 

C- - - FISHIN 

IFUBSCX/FISHIN-I. >.LT.C.5E-6)) GO TO 7 FISHIN 
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FlSHlfJ 

IF THE RELATIVE VALUE OF THE DIFFERENCE IS LESS THAN .5E-6* RETURN FISHIN 

— FISHIN 

IF l ABS ( X-FISHIN ) .LT • ( . 5E-6 ) ) GO TO 7 FlSHItM 

IC = IC + 1 FISHIN 

1FUC.GT.100) RETURN FISHIN 

FISHIN 

SET THE APPROXIMATION EQUAL TO FISHIN AND CONTINUE TO ITERATE. FISHIN 

FISHIN 

X=P I SHIN FISHIN 

GO TO 5 FISHIN 

7 RETURN FISHIN 

END • FISHIN 

FUNCTION F'HINV < P ) PHINV 

IF < P .EQ. l.OIGO TO 9ft PHINV 

1F(P .EG. 0.0) GO TO 97 PHINV 

IMP .GT. 1.0) GO TO 8 A PHINV 

IF t P .LT. 0.0) GO TO 8A PHINV 

K = 1 PH I MV 

IMP .GT. 0.5) GO TO 47 PHINV 

8 T5=SQRT(-2.0*ALOG(P> ) PHINV 

T4 P =2,515517+, 802£ 5 3* T3+.010 328* T3*T3 p H I N V 

T 5P=1. 0+1. 432768*1 3+. ]P9269*T3*T3+. 001 308*T3*T3*T 5 PHINV 

XT = T3-T4F’/T t: 'P PHINV 

X T = - X T • PHINV 

13 DO 53 1 = 1*100 PHINV 

PHF = EXP t-0,5*XT*XT) PHINV 

PT = FHI (XT) PHINV 

IMAPS(P-PT) , LT . P*4.oE-«)Go TO 99 PHINV 

2 - (P-PT) *2.50662827 / PHP PHINV 

XT = XT + 2 PHINV 

53 CONTINUE PHINV 

GO TO 99 PHINV 

47 P = 1 .0 - P PHINV 

K = 2 PHINV 

GO TU 6 PHINV 

99 GO TO (26*27) *K PHINV 

26 PHIi+V = XT PHINV 

RETURN PHINV 

27 PHll'jV = -XT PHINV 

P = 1.0 - P PHINV 

RETURN PHINV 

98 PHIliV = 1 . 0E + 3(i PHINV 

RETURN PHINV 

97 PHIiviV = -1.0E + 38 PHINV 

RETURN PHINV 

8 BrtRlTE( 6*10 )P PHINV 

10 FORMAT ( 1HQ 1 5X • 29HARGI.H-' F NT NOT A PROBABILITY = *5X»E14.7 ) PHINV 

RETURN PHINV 

END PHINV 
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for modifying retrieval program to 
perform analysis of covariance 
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NEWTON 


NASARETi CM20000,T1000 . 

ACCOUNT »AN12316» • 

RFL *70000, 

GET , RTKEVL. 

GET { ANACSRC ) 

MODIFY » F ,P=KTKEVE,LO=CET. 

FTf\l,I,L = O,FL = b00D0,T. 

ATTACH « FTUTP;$L/UN=LB1 2 54 5 . 

GET* FTNPLT/UN=AN120U5. 

GET » R A1 • 

GET, H Aid. 

GET , R A 5 . 

GET, RAH. 

RFL * 1 1 l)U0(i . 

MOf)E< 1 ) 

LOAn,LGO,FTMlMSL,FTNPLT. 

EXECUTE. 

PACK ♦ ZZ22ZCE . 

COPYShF »ZZZZZEF,<>UTPUT. 

EXIT. 

PACK ,Z/_ZZZtE. 

COPY SBF’ ♦ ZZ/Z/EF , OUTPUT . 

♦CREATE aMACSRC 

♦ IDEimT APR^H 

♦deck si at 

♦ D 7b 

lVV(l )=lVV(2) = I\/\/(3)=r) 

♦ D 1 0 tJ 

1M IF IRST-1LAST ) Lb 2, 1 G 3 * I bG 
1&3 PRINT H 0 1 

HOI FORMAT (* SINGLE VALUE NUT A(^ALYZELU) 

♦DECK MESIG 

♦ D 6 

IF (Nf- I rST-NLA^T ) 10* If), ‘HO 

♦IDENT setwrk 

♦ DECK KKiJSWAL 

♦ D 1 

SuHKOljTIivE KRuSWAL ( xlN , 1 01 , U)2 1 l\l , N , IJCLN , JOP , K , Mu , nC , IP2 ) 

♦ D 22 

DIMENSION X 1 |\j < 1 | ,101(1 ) ,1021^(1) , fjU ( b ) « |jC ( & ) ,XY ( It’d) ,I,j2i IPO) 

♦ I 2ti 

C MOVE InComhInK ARRAYS TO work arrays 

L)U 10 1 = 1, N 

xy ( i )=xir\i( i ) 

ID2tl)=ID2lN(i) 

io continue 
♦idEnt fix 
♦deck ketu 

♦ D 1 

PROGRAM RETD { INPUT , OUTPUT, TAPE6=0UTPUT) 

♦DECK STA1 

♦ MODNAME I'ECIO 
♦D F»19 

♦ D 23 

♦ D ?b 

♦ D 2 G 

1K< 1CASE.E0.2 ) Go To 990 

♦ MODNAME SI AT 

♦ I 19u 
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IF ( ICASE.EG.4) 710*711 

710 IF < NIMN < 2 ) .EQ.l) GG TO 712 

I GO TO 713 

712 NtMNl = NI\JN ( 1 )+l 
NSLTK1=J-1 

UO 179 I=NNIM1 .NSLTM1 
179 X(I)=X(I+1) 

713 UNI\U?)=NNN<3) 

IJNN(3>s:0 

711 CONTINUE 

*1 219 

P(3)=0 

♦ D 222*223 

PRINT 360 0 * IP2 ( i ) * FM Al- * PPFV aL 
3600 FORMAT ( 1H0«A8*F6.3*2-3H IS SIGNIFICANT AT THE *Fb.l* 

*D 230 

PR 1 1 j‘l 3600 , IP? ( 2 ) ,FVAt ,PRFVAL 

♦ D 23b 

FKlivil 36 0 0 * I p 2 ( 3 ) * F V A | » PK F V A L 
♦D 262 

L=Ni-jH<l)+MNN(?>+J 

♦ I 265 

NP=hNN(l-M’fSNN<-3> 

NNN(?)=NNN<3) 

♦ I 267 

993 CONTINUE 
•IDENT F I a2 
^DECK STaT 
155 

Nh=NW-NNN(2) 

♦ I 16 b 

NN=NN-r.lNN( 3) 

♦D 247 * — 

CALL KRUSWAL <X*ID1 * ID? ,|\IP* 0 * 1 ♦ NT « NIMf'J * LK * LK ) 

*0 252 

I P I =2 

CALL KRUSWAL (X ♦ 101*10?. UP* 0 * 1* 2*NNl\i*LK« IP I ) 

*0 257 

IPI=3 — 

CALL KRUSWAL ( X ( 1ST ) * Ioi ( 1ST ) * ID2 ( 1ST ) *NP *0*1*2* NNN ( 2 ) *lk* *PI > 

♦ D 267 - - 

IP 1=3 

IF ( ICASE.EO.A) IPI=2 

CALL KRUSWAL (X* I HI * ID? * IMP* 0 * 1 ♦ 2 » NNN * L.K . IP1 ) 

♦DECK KRUSWAL - 

♦ D 113 

CALL TWOsPL (R1 ♦ 1T)2 *iM*HD,WC , IP2 ) 

♦DECK TWuSPL 

♦ D 1 

SUBROUTINE TW0SPl(R1»ID2*N*ImU*NC, IP2) 

♦D A 

IF<Il>2< I) .EGI.IP2) Go To 

♦I dent xreduc- 

71 E C K KtTu 
•odname reduce 

♦ D 1 

COM HON XDATA ( 150 ) * T ( 2n0 ) * IOPLOT * IFFF * KOT « KsK I P . LT ♦ LM » LsTOP 

♦ D 2 

COMMON/HiTBLK/LHIT( 150) • NO A IE< 150) * IiiAV < 16) *MTVOl(15u ) 

♦DECK RET 
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♦MUDNANE HtlRICt 
*D 1 

COMMON XDATA ( 150>»T(2n0)i lOPLOT » IFKF tKOT » KSMP . LT iU'ULSTuP 

♦ D 2 

COP'nCK/HITBLK/LHIT ( t5n) » MU A rn IbO) » I SAW (16) ♦MTVOL( 15(M 

♦ D 3 

lMlH.LE.lhl> 60 TO in 

♦ D 4 

1MijSMH.lE.1S0) 00 To 3S 
♦DECK SETLR 1 

♦ MODMHE REDUCE 

♦ D 1 

COMrll'H/rilT^LK/l H C y (15(1 ) , MDA if ( ISO ) , if»Av (It) »HTuOM ISO ) 

♦DECK rETrVE 
♦HoONamE RtljUCE 

♦ D 1 

COMMON *DAl A ( ) iTl?(i|il , 1 0 PLOT . TFVF»KOT«KsMP»I 1 .LrltLSTOP 

♦ D 2 

COhi'H'fj/HI TB lk/ 1. HI • ( 15(1 ) ♦ Hi) A fL t 150 ) iISAV ( 16 ) « mT V Qu ( 15 0 ) 

♦ D 3 

IMilibf.lSO) 60 To 11 n 

♦ DECK STM 
♦MODNAMt REDUCE 

♦ D 1 

CuMr-ioN xDA T A { 15(1 ) , t (2i) 0) , lOt’LO T ,IF) F , KO y , hSMP , Ly ♦ LM , LSyUR 

♦ D ? 

LOMiii'H/MITRlK^LHIT (150) t fill A I L ( 150 ) i XSAV (16) , W T ('Ol ( 1 S 0 ) 

♦ DECK OIlM 

♦ MODHAllE l-LUuCE 

♦ D 1 

COMMON xOATA ( 151) ) ,T(20 0 > , IOHlOT, IFf K,KC)> , hS* IP , l. T , L M , LS 1 UP 

♦ DCCI ; S * I'L o r 
♦MODI J AML HLuUCE 

♦ 0 1 

COMlif»N xDA T A(15ll> , T ( ?> 0 (i ) , IOPLU T ,IFFF,KOf,KsMH.LTiLM,LsTUP 

♦ D 2 

LUWi'i p J/HITb LK / L HlT ( 15(1 ) . m D/\Tl( 150 I » 1SAV ( 16 ) « ,V|T\/f. L ( 15U > 

♦IDEMT AOttCl 

♦ DECK sTAT 

♦ I h 

COMMON CHEN (2 DO > .TIME (200) ,IM(jU< 3) , [RE Ay tb ) ♦ SL ( b > , ss ( 12 1 « * f ''S c < * 2 > 

2 ♦ F ( 12 ) ♦ PRUBF ( 12) .Xf,i(6) ♦ V.(M « [\jDKC ( 12 ) , SXX ( b ) ♦ SY T (b) .SxT (b> 

COMMON ZcH( 2»bD ) .WORK {2*60 ) 

DIMENSION Ll 20) 

♦D 166,107 

GO TO 321 

♦ I 166 

321 XqUT( j>=mDaTE< I ) 

C 1 19 SET I lag Fok AN ACC v A 

IF (lMAN( 1 ) .Ey. 1 ) IANC = 1 ^ 2^0^ QP^ 1 '"' 

IF ( ILASE,E0.2.0Fv. lCASr.E0.3) bO TO 322 ^ 

HKluT 605 

605 FOKiiAT ( * filSSlNf) X IMF | I6HT DATA - NO ANACoVA POSSIBLE*) 

1ANC=0 
GO TO 716 

C PICK INFLIGHT DATA ONl Y INTO ChEM AND TIME 

C X Is CHANGED HE Hi" AMO L-ATEK 

322 I F < i_H!AN ( l ) . LQ . 1 ) l.O«S=n 
I— Nul' ( 1 ) +1 
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J=NN|\H 1>+NNN<2) 

DO 714 K = I t J 
LOBS=LOBS+l 
CHEl'l ( LQF3S > =X ( K ) 

TIML(LOBS)=XOUT(K) 

714 CONTINUE 

NOB U. HAN (1> )=NNI\h2> 

716 CONTINUE 
*MODl\iAME FIX 
*1 20 

IF(LMAN(1) .LT.3.0K. IArtC.NE.D GU TO 999 
PRINT 1U 0 0 , JOB ( 3 ) 

PRINT 604 . LSTUd Y ( 1 ) , KSTUpY , I WORD » LTEST ( 1 ) t KTe$T ♦ I.. I YPE<1> 

60« FORMAT (7H0STIJCY * 12 . 2X , AB ♦ p.X , Ai U 1 2X . 5HTLST t 13 .2X . AB.2X .5HTYPE . 
2 1 3 1 * inflight DATA For ANACoVA*) 

PRINT 602 

K=0 - 

DO 715 L=1 1 3 ■' 

J—K + l 

K=K+NOB ( L ) 

PRINT o02 

602 FORMAT (1H ) 

M=U 

00 7.1 7 1=J.K 

M=H + 1 X 

717 PRINT 60 1. Mi CHEN (I ) »time( I) 

715 CONTINUE- - • • •• - 

601 FORMAT < 14 , F12 . 4 , F5 . » ) 

NT =3 

I0PT=2 

CALL ANA-GOVA ( I'HEM. TIME .LOBS »WTi NOB i TREAT , SL t SS , X^SC . F ,PRl)BF , 

2 IOPTtXn.YM«vSXXiSYY*SXY.NDFC) 

‘ IFdOPT.LT* 0-1 PRINT 6p3 

603 FORMAT. (3 ANACOVA FRROR*****»*****a ) 

J=1 

K = 0 

00 719 LAS = 1 1 3 
K=K+NOB(LAS) 

L-0 - ■- - 

DO 718 I=J.K 
■ L=L+1 ■ • • — 

ZCH(2.L) s.O, 

ZCH ( 1 ,L) =CHEM( I > - ( YM(LAS) +SL l LAS ) * ( Tl ME ( I ) -XM(LAs) ) ) 

CHEi'H T l=ZCH(l.L) 

WORK ( 1 .L >=(). 

WORK ( 2 . L ) =0 » 

718 CONTINUE 

CALL LAGCOR(NOBd.As) t CHEF! ( J ) , NOB ( LAS ) t CHEM ( J ) .C,l t 28) 

PRINT 610, LAS - 

610 FORmA T l *0 MAN*tI3t* LAG COKRLLATlOf\lS*/*GSEO C-(/ALUE*> 

PRINT 611tlI«C(I) .1=1,28) 

611 FORMAT { I6.G15. 6) 

N=NGB ( LAS) ORIGINAL PAGE Id 

CALL FOURG ( ZCH t N . - 1 1 WORK ) POOR QUALITY 

DO 723 1=1. N U 

WORk (1,1) =ZCH( 1 1 I ) **2+ZCh (2. I ) ** 2 
723 WORK < 2 , I ) =ATAN2 ( ZCH < 2 , T > ,ZCtUl,I ) ) 

PRINT 602 
PKInT 607 

607 FORMAT ( 1HQ . f 16 1 *FAST FOURIER TRANSFORMS*/* SEQ OMEGA* , 
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1 bX t oiKEAL IMAGINARY k**2 + J>*2 

DO 720- M=1 » N 
«ImH=FLOAT (W) /FLOAT ( M-l ) 

IFIM.EQ.I) QNM=0. 

PHl.-iT bOG ♦ M « Qf!M ♦ 2CH < 1 « M ) « £CH ( 2 i l“l ). « WORK ( 1 « PI ) « WORK ( t 
720 CONTINUE 

GOA FuKt-i/iT ( IX. I3,F6.2»4Gl>S.b) 

J — K+l 

719 COhlTNUe 


JOB 

date 

A 00 


STUDY EACH 

5 


DATE 


199 

209 

DATE 

range 

220 

26b 

TYPE 

EACH 

1 


test 

h A U G E 

40b 

40y 


ENO 

EOF 




AKCTArK I/R )W) 


,M) 
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D.8 Analysis of covariance program as contained 
in file ANACSRC 
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NASA » CM50 0 00 » L NEWTON 

ACCOUNT .AN12318* 

COPY ( INPUT .ANACSRC ) 

REPLACE (ANACSRC) 

ANACOVA 

SUBROUTINE ANACOVA < Y , X , L . NT , NOB . TREAT , SL » SS . XMS , F ♦ PROBF , IOPT , 

Z XM.YM.SXX.SYY.SXY.NDF) 

DIMENSION Y ( 2 ) « X C 2 ) * NOB ( 2 ) » YM C 2 ) . XM ( 2 ) , SL ( 2 ) . SS ( 2 ) . XMs < 2 ) , F < 2 ) , 
2 PROBF ( 2 ) iSXy (2) .SYYC2) . SX Y ( 2 > . TREAT ( 2 > ,NDFC2> 

SS(1)=0 
SS ( 9 ) =0 
NTT=NT+1 
NT 2=NT +2 
NT3-NT + 3 
SSC 12>=0 
L=0 

DO 9 1=1. NT3 
SXX ( I ) =0 
SYY(I)=0 
SxY ( I ) =0 
XM { I ) =0 
YM C I >=0 
9 CONTINUE 
DO 20 1=1. NT 

IF <NOB< I ) .EQ.O) GO TO 99 
NO=i\jOB ( I ) 

DO 10 J=l.NO 
L=L + 1 

XM( I >=XM( I ) + X CL ) 

YM ( I ) = YM C I ) +Y ( L ) 

SXX ( I)=SXX ( I )+X CL )*X (L ) 

SYYCI J=SYYC I )+Y(L>*YCl ) 

10 SXY (I )=SXY ( I ) + X { L ) + Y ( | ) 

YM(NTT)=YM(NTT)+YM(I) 

XM(NTT)=XM(NTT)+XM( I > 

SXX(NTT)=SXX(NTT)+SXX( I) 

SXY (|\jTT )=SXY CNTT) + SXY( i > 

SYY(NTT)=SYY (NTT) + SYY( I > 

SSC 12 >=SS( 12 ) +SYY < I > 

XMC I )=XM(I )/NO 

YM ( I > =YM ( I ) /NO 

SXX { I ) = SXX ( I ) -N0*XM ( I) **2 

SYY(I)=(SYY<I)-N0*YM(i)**2)/(N0-l.) 

SX Y ( I ) = SXY(l)-MO*XM(n*YM(I) 

SL( I)=SXYCI)/SXX{I ) 

TREAT ( I ) = YM{ I )-SL< I )*XM(I ) 

SSC 1)=SS(1)+N0*YM< I )*YM(I ) 

SS(9)=SSC9)+SXX(I)*SL( I >**2 
SXY(NT3)=SXYCNT3)+N0*XM(I)*YM( I ) 

SXX(NT3)=SXX«NT3)4N0*XM(I)**2 
SXX(NT2>=SXX(NT2)+SXX(I ) 

SXY(NT2)=SXY(NT2)+SXY( I ) 

SXX( I )=SXX( I ) / { NO-1 • ) 

SXY(I)=SXYCI)/(N0-1.) 

20 CONTINUE 

YM ( NTT ) =YM C NTT ) /L 
XM(NTT)=XM(NTT)/L 

SXX(NTT) = (SXX(MTT)-L*XMCNTT)*XM(NTT) ) / ( L-l , ) 
SXY{NTT)=CSXY(NTT)-L*XM(NTT)*YM(NTT) >/(L-l. ) 
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SSU=L*YM ( NTT ) *YM ( IViTT ) 

SYY(WTT) = (SYY(fMTT)-SSU)/(L-l. ) 
SL(NTT)=SXY(MTT)/SXX(WTT> 

SS(NTT)=SS< 12) 

SL ( NT2 ) sSX Y ( NT2 ) /SXX < MT2 ) 
SS(6)=SXX(NT2)*SL(NT2)**2 
SXXJNT2)=SXX (MT2)/(L-MT) 

SXY(M2)=SXY(M2)/(L-MT > 

SS(8)=SS(9)-SS(fo> 

SXX(NT3)= ( SXX < NT3 ) - L *XF( NT T ) **2 ) /(NT-1*) 

SXY ( NT 3 ) = ( SX Y ( NT 3 ) * |_*XN < NTT ) *Y|“I ( NTT ) ) / < N T- 1 . ) 

IF ( SXX (NT3 ) *GT» 0 ) GO TO 50 

SL(NT3)=1.0E28 

TREAT (NT3)=YM<NTT) 

SS< 4>=0. 

SS(3>=0* 

GO TO 51 

50 CONTINUE 

SL(NT3)= SXY (MT3)/SXX(nT3) 

SS < 4 ) = ( NT -1 . ) *SXX ( NT 3 ) *SL ( NT 3 ) **2 
SS(3)= <SL (NTT ) -SL (NT 3 ) >**2/(1./ (SXX (NT3>* (NT-1. > ) 
2 + 1./<SXX(NT2)*(L-NT) ) ) 

TREaT(NT3)=YN(NTT)-SL(NT3)*X|V|(NTT) 

51 CONTINUE 

SS( l >=SS( 1 )-SSU 
SS ( 5 ) = SS ( 1 1 -SS ( 4 ) 

SS<2)= (L-l. )*SXX(NTT)*SL(NTT)**2 
SS< 10)=SSU+SS(1 ) +SS ( 9 ) 

SS ( 7 ) =SSU+SS(1 )+SS(6, 

TREAT ( NTT ) =YM ( NTT ) - SL ( NTT ) *X|«| ( |\)TT ) 

SS(11 )=SS(12)-SS(10) 

TREAT(NT2)=0 
NDF < 1 ) =NT-1 
NDF(2)= 1 
NUF(3)= 1 
N0F(4)= 1 
NDF<5)= NT-2 
NUF(fc> = 1 
NUF(7)= NT + 1 
NUF(8)= NT-1 
NDF(9)= f,T 
f\lDF(10)=2*MT 
NUF(12)=L 
NUF(ll)=L-NLiF(10) 

DO 55 K=l,ll 

IF(NDF(K) .GT.O) GO TO *-4 

XMS(K)=0 

GO TO 55 

54 XmS ( K ) = $S ( K ) /NDF (K ) 

55 CONTINUE 

DO 60 K=1 » 1 0 
F(K>=XNS(K>/XNS(11) 

IF ( F ( K ) .GT • 0 . ) GO TO 59 
PROBF (K)=0. 

GO TO 60 

59 PROBF ( K ) -FISH ( F ( K )» NDF ( K ). nDF ( 7 ) ) 

60 CONTINUE 

IF(IOPT.LT.I) GO TO 999 
WRITE ( 6t 150 > 

WRITE ( 6» 1 ) 
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1 FORMAT { 30 TREATa»TlO«aMUM3tTl8t S INDEPENDENTS* T 34 * SINDE PENDENT a* 

2 T 50 » 9DE PENDENTS) t T67 * 3DE PENDENTS ♦ T83 » SCO VARIANCE ii) t 

3 T99,aiNTERC.EPTa.Tll8»aStOPEa/2Xio)NENTatTl0»aBERS* 

4 T20*SMEANa*T35«pVARIANCEa* T51 * 3MEAN3 * T67 * 3V AR I ANCta// ) 

DO 70 1 = 1 * NT 

WRITE <6. 2) ItNORIl) 'XP(I) «SXX(I)«Yn(ll 'SYY(X) , SXY ( I > ♦ TREAT < I > , 

2 SL ( I ) 

70 CONTINUE 

2 F0RMAT<2X.I5tlX.I5»7<4X«Gl3*6> ) 

WRITE (6* 4) SXX(NT2) *SXY(NT2> , SLINT2) 

4 FORMAT ( IX » 124 ( 1H - ) / 2X » SllSLOPES * 26X *Gl3 , 6 » 38X « G13 • 6 *2lX • G13 , 6) 

WRITE ( 6 ♦ 5 ) SXX (NT3) *SXY (NT 3) » SUNT 3) 

5 FORMAT(/2X,o)SLOPE 3 , 2&X , G 13 . 6 « 38X , G 13 . 6 * 2 IX * G1 3 . £,/2X , SmjF MEANS 3 ) 
WrITE ( 6 * 3 ) L »Xm<NTT MSXX(NTT ) ,Yl“KNTT ) .SYY(ImTT) ,SXY (NTT ) , 

z TREAT <NTT) « SL ( NT T ) 

3 FORMAT (/2X«6tTOTAL&« 1 X.t5*7<4x*G13.6)) 


WRITE<6,150) 

IF t IOPT.EQ.3) GO To so 

WRITE (6* 100 ) SSU, ( NDF ( I) *SS( I ) ,XmS ( I ) ,F < I ) ,PRUOF < 1 ) * 1 = 1* 5) 

100 F0RMaT(//»15X*93( 1 H- j , / ♦ 47X » SaNALYS 15 OF COVaKIaM-E T aBLES * / * 1 5X 
193 ( 1 H- ) »/* 15X*3S0URCE 0 Fa ♦ 9 X , ^DEGREES OFa * 5X « 3SUK OFa i 1 OX « 3ME ANS 

212X,aF-a»14X«3PR0Eai/.l5XtaVARIATI0Nai9X,aiFREED0r o!*6X»aS0UARLSQ>» 

39X,aSOUAREa,lOX,aRATIoa,llXtaFa,/,15X,93<lH-) */ » 1 bX » 3l“iEA|\sa * 19X t 
*aia«eX»Gl3.6t/»15X»aT R EATMENTSa*4X«Il0»8Xi4(Gl3.G*3X) «/»i5X« 


493( 1H- > 
A 


♦ /* 


l 5 Xt 3 i POPULATION a, 1 X 1 Il 0 » 8 X» 4 (&i 3 . 6 « 3 X ) 

B ,/, 15 X*ai POP.- SLOPES, lX»I 10 » 6 A» 4 (Gl 3 .b» 3 x) 

C t/«15X«a OF MEAPjS a , / , 15 X , 

* 93 ( 1H- ) ♦ /* 15X,aSL0PE OF MEANS3 * 1 10 , 8X , 4 ( G 13 , 6 , 3X ) 

D » / • 15 X * 3 Dl FF MEAN SL , a , IX » II 0 ♦ 8 X , 4 < 6 l 3 . b , 3 X ) 

E , / » 15 X , aAND PAR* SL.a 

F ) 

WrITE< 6* 102 ) ( NOF ( I ) ,SS( I > ,XmS( I ) *F < I ) *PROBF ( J ) * 1=6*10 ) . 

NDF ( 1 1 ) * SS < 11 ) « XMS ( 1 1 ) » NOF ( 1 2 ) ♦ SS ( 12 ) 


102 FORMAT ( 
F 
G 

H 93(1H- 
I 

J 93{1H- 

K 

L 

M 

N 93 l 1H“ 
0 


♦ / , I5X , aPARALLFL LlNEa,lX»IlO*8X,4<Gl3.t,3X) 

,/,i5x*a slope a,/, 15x, 

) * / * 15X 1 apA R A llEL LINES t IX* 110 »8X*4( 613.6, 3X) 
« / * 15 X * a model a*/« i5X* 

) «/*l5X,aNGN- a* IX* 110 *8X , 4 (G13.6.3X ) 

,/* 15 X*a PARALLELlSMa. 


,/*15x* a INDIVIDUAL 
,/,15X,a SLOPES 
> */*i5X t ap egression 
«/* 15 X*a MODEL 
♦ /* 15X* 3ERR0R 


a,lX*Ho*6x,4(bl3,6,3x> 

a,/, i5x, 

a,lX*I10*8X,4(bl3.6,3X) 

a 

a.lX*Iln*flX.2(Gl3.t,.3x) 


* 1.5 X * 

Q 93(1H-) */*15X*aiTGTAL S*1X*I10»8X* 613.6,/* 

* 15X * 

R 93 { 1H- ) ) 

WRITE < 6 , 150 ) 

IF ( IOPT.EQ.l) RETURN 
80 NUF (7)=NDF(7)-1 
NDF(10)=NDF(10)-1 
NDF ( 12 ) =NDF ( 12 ) - 1 
SS(7)=SS<7)-SSU 
SS(10)=SS<10)-SSU 
SS(12)=SS<12>-SSU 
XMS(7>=XMS(7>/NDF(7) 

XMS(10)=XMS<10)/NDF(10) 
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n n 


F(7)=XMS<7>/XMS< 11 ) 

F(10)=XMS(10)/XMS(11) 

PROOF (7)=FISH(F(7) , NDF < 7 > ,NDF ( 11 >) 
PROBF(10)=FlSH(F(10>*NDF<10>tNDF(ll> ) 

WRITE ( 6. 101 ) (NDF(I).SS(I) . XMS ( I ) ♦ F ( I ) « PROOF ( l ) » 1=1 , 5) 

101 F0RMAT(//,15X.93< 1H-) , / , 38X , &ANALYS IS OF COVARIANCE TABLE (MEAN D1 
AFFERENCE)a./,15X. 

1 93 ( 1H- ) » / « 15 X * aSOURCE 0F3 , 9X , aDEGRECS OFa , 5 X , iSUM OFS , 10 X , aMEANa, 
212X»aF-a. 14X»aPR0Ba,/, l5x *aVAKIATIONa.9x*aFKEEDOPa,8x.aSoUARESa* 
39X » aSQUAREa t l0XiaRATIoaillX»aFa»/il5X*93(lH-)»/» 

* 15X * aTREATMENTSa » 4X , 110 , 8X , 4 { G 13 , G » 3X ) ♦ / * l5x , 

493 ( 1H- ) , / . 

A 15X.31 POPULATION a,lX»I10.8X,4(Gl3.6,3X> 

B ,/.15X,ai POP.- SL0FEa.lX,I10,8X,4(Gl3.6.3X) 

c »/»15X»a OF MEANS a 15X ? 

* 93UH-) «/»15X«aSL0PE OF MEANS3 » I 10 » 6X , 4 < Gl 3 . 6 , 3y ) 

D ,/,15X.aDIFF MEAN SL . a , IX t I 10 » bX t 4 ( G13 . & , 3X ) 

E , / « 15X , aAND PAR. SL.a 

F ) 

WRITE <8. 10 2) (NDF(I) tSS(I) .XmSU > »F (I ) .PROOF (I ) .1 = 6.10) ♦ 

2 NDF < 11 ) » SS ( 1 1 ) »XMS(11) . NOF ( 12 ) »SS(1?) 

WR ITE ( 6 . 150 ) 

150 FORM AT ( 1H1 ) 

999 RETURN 
99 IOPT=-l 

return 

end 


fourg 

subroutine FoURG (DATa.N, isign.work) ffg 

c cooley-tukey Fast Fourier transform in usasi basic fortran. ffg 

C ONE-DIMENSIONAL TRANSFORM OF COMPLEX DATA. ARBI 1 PAR Y NUMBER OF FFG 

C POINTS- N POINTS CAN BE TRANSFORMED IN TIME PROPORTIONAL TO FFG 

C N*L0G(N) (FOR N NON-PRIME), WHEREAS OTHER METHODS TAKE N**2 TIME. FFG 

C FURTHERMORE. BECAUSE FEWER ARITHMETIC OPERATIONS ARE PERFORMED. FFG 

C LESS ERROR IS BUILT Up. THE TRANSFORM DONE IS-- FFG 

C DIMENSION DATA(N) .TRANSFORM (N) .WORK < IM > FFG 

C COMPLEX DATA. TRANSFORM, WORK FFG 

C TKANSFORM(K) = SUM < DATA < J > *LXP ( ISIGN*2*P I *1 * ( J-l ) ♦ ( K-l ) /N ) » . FFG 

C SUMMED FrOM J = 1 TO N FOr ALL K FROM 1 TO N. THE TraNSFOrM FFG 

C VALUES ARE RETURNED TO DATA. REPLACING THE 1NPU1 . N MAY BE ANY FFq 

C POSITIVE NUMBER, BUT IT SHOULD BE NON-PRIME FOR sHEED. ISICN = FFG 

C +1 OR -1. A -1 TRANSFORM FOLLOWED By A +1 ONE <OK VICE VERSA) FFG 

c returns n timLs the original data, work is a one-dimensional ffg 

c COMPLEX ARRAY OF LENGTH M USED FOR WORKING STORAGE. FFG 

C RUNNING TIME IS PROPORTIONAL TO N * (SUM OF THE PRIME FACTORS OF FFG 

C N). FOR EXAMPLE, N = i960, TIME IS TO * 1960 * ( 2+2+2+5+7+7 ) . FFG 

C NAIVE METHODS DIRECTLY IMPLEMENTING THE SUMMATION RUN IN TIME FFG 

C PROPORTIONAL TO N + *2. AN UPPER BOUND FOr THE RMS RELATIVE LrrOr FFG 

C IS 3 * 2**(-B) * SUM(F**1.5>» WHERE B IS ThE NUMBER OF BITS IN FFG 

C THE FLOATING POINT FRACTION AND THE SUM IS OVER THE PRIME FFG 

C FACTORS OF N. WRITTEN BY NORMAN BRENNER, Ml T LINCOLN LABORATORY, FFG 

C AUGUST 1968. SEE — IEFF TRANSACTIONS ON AUDIO AND ELEC TROACOUST ICSFFG 

C (JUNE 1967), SPECIAL ISSUE ON THE FAST FOURIER TRANSFORM. FFG 

DIMENSION DATA(l). WORK ( 1 ) , IFACT(32> FFG 

TwOPl=6.283l85307 *FLOAT( ISIGn) FFG 

FACTOR N INTO ITS PRImE FACTORS. NFACT IN NUMBER. FOR EXAMPLE, FFG 

FOR N = 1960, NFACT = 6 AND IFACT(IF) = 2, 2, 2. 5, 7 AND 7. FFG 

IF=0 FFG 

NPART=N FFG 
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noonnoon 


10 

20 

30 


40 

50 

60 

70 

80 

C 

C 

C 

C 

C 

C 


90 

100 

110 


120 

C 


130 

140 


DO 50 ID=1»N,2 
IDIV=ID 

IF ( 1 D - 1 ) 10,10,20 
IDI V=2 

IQUOT=NPART/IDIV 

IF ( NPART-IOIV+IQUOT) 4 0 < 30 *40 

IF=IF+1 

IFACT< IF)=IDIV 
NPART=IQUOT 
GO TO 20 

IF (IQUOT-IUIV) 60,60,50 
CONTINUE 

IF (NPART-1) 80,80,70 
IF=IF+1 

IFACT( IF)=MPART 

nfact=if 

SHUFFLE THE DATA ARRAY BY REVERSING THE DIGITS 0 F THE IimuEX, 

replace data<i) by data<ireV) for all i from i to n. rRFv-i is 
THE INTEGER whose DIGIT REPRESENTATION IN THE MULTI-RADIX 
notation OF FACTORS IFACt < IF ) IS tHE REVERSE OF tHE REPRESFNtAt 1 
FOR EXAMPLE. IF all IFACT(IF) = 2, THEN FOR 1-1 = ‘lloJi 
IREV-1 - 10011, A WORK ARRAY OF LENGTH N IS NELnLD « 

IP0=2 1 l 

IP3=IPo*N 
I WORK-1 
I3REV=1 

DO 110 13=1, IP3, IPO 
WORK( IWORK)=OATA( I3REV) 

WORK( IWORK+l)=DATA ( I3REV+1) 

IP2=IP3 

DO 100 if=i,nfact 
I pl=Ip2/IFACT(IF) 

I3REV=I3REV+Ipl 

IF (I3REV-IP2) 110,110.90 

I3REVSI3REV-IP2 

IP2=lPi 

IWORK=IWORK+IPo 

IWORK=l 

DO 120 13=1, IP3. IPO 
DATA ( I3)=W0RK ( I WORK > 

DATA ( 13+1 ) =WORK ( IWORK+1 > 
iwork=iwork+ipo 

PHASE-SmFTED F OUR IER TRAnSF 0 R M OF L EnGTh IFaCT(IF). 

IPR0q=IP1/IP0 

IREm=N/< IFACt ( IF >* lPRon) 

DIMENSION DATA (IPROD, IFACT ( IF) , IREM) , WORK ( IF AC T < 1 F ) ) 

COMPLEX DATA, WORK 

DATa(I 1,J2,I3) = SUM(DATA( 11,12,13) * W**(I2-l>), SUMMED OVER 

TFflrTirl? F ° R ALL 11 FR0M 1 T0 lPRoD * U2 FROM 1 TO 

IFACT ( IF ) AND 13 FROM 1 TO IREM. 

i'r!n E:XP<ISIGN * 2 *P I *I* (I1 ‘ 1 + lFJR0D * (j2 “l ) >/<IPROD*lPACT(IF) ) ) , 

I r — 0 

IP1=IP0 

IF (IP1-IP3) 140,240,240 
IF=IF+1 

IFCUR=IFACT< IF) 

IP2=IP1*IFCUR 

THE TA=TW0PI /FLOAT ( IFCMR ) 

SINTH=SIN(THETA/2. ) 

R00TR=-2, *S I NTH* SI NTH 


FFG 

3; 

FFG 

3- 

FFG 

3‘ 

FFGi fe* 

FFG 

3f 

FFG 

37 

FFG 

3/ 

FFG 

3' 

FFG 

4 f 

FFG 

43 

FFG 

42 

FFG 

4 2 

FFG 

44 

FFG 

42 

FFG 

4f 

FFG 

47 

FFG 

4f 

FFG 

45 

FFG 

5( 

)|\iFFG 

51 

FFG 

52 

FFG 

52 

FFG 

54 

FFG 

5S 

FFG 

56 

FFG 

57 

FFG 

56 

FFG 

5? 

FFG 

6C 

FFG 

1 

FFG 

C 

FFG 

62 

FFG 

64 

FFG 

62 

FFG 

66 

FFG 

67 

FFG 

66 

FFG 

6? 

FFG 

7C 

ff g 

71 

FFG 


FFG 

72 

FFG 

74 

FFG 

7e 

FFG 

76 

FFG 

77 

FFG 

76 

FFG 

75 

FFG 

fiT 

FFG 

31 

FFG 

82 

FFG 

82 

FFG 

34 

FFG 

ae 

FFG 

36 

FFG 

i 

FFG 


FFG 

85 

FFG 

90 

FFG 

91 
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n o o r> r> 


C C0S(THETA)-1» for ACCURACY 
ROOTI=SIN(THETA> 

THETA=TWOPI/FLOATt IP2/IP0) 
SlNTH=SlN(THETA/2. ) 
WSTPR=-2 .*SIuTH*S1NTH 
WSTPI=SIN(THETA) 

WMINR=1. 

WMINI=0. 

DO 230 I1=1,IP1,IP0 
IF (IFCUR-2) 150*150,170 
150 DO 160 13=11 t IP3* IP2 
J0=I3 
Jl= I 3+IP1 

TEMPR=WMINR*DATA( J1 > - wl* IN I*DA T A < Jl + 1) 
TEMPI=WMINR*DATA ( Jl+1 ) +WM IN I*UATA ( J1 ) 
DATA( J1)=0ATA( JO)-TEMpR 
DATA( Jl + 1)=0ATA< JO + U-TEMPI 
DATA ( JO ) =QATA l JO )+TEWpR 
160 DATA ( JO+1 )=DATA ( J0+1)+TEMPI 
GO TO 220 

170 IWMAX=IP0*IFCUR 

DO 210 13=11 1 IP3, IP2 

I2MAX=I3+IP2-IP1 

WR=WMINR 

WI=WMINI 

DO 200 IW0RK=1 * IWMAXtipO 

I2=I2MAX 

SUHR=DATA(I2) 

SUMI=DATA< 12+1 ) 

180 I2=I2-IP1 

TEMPR=SUMR 

SUMR=WR*SUMR-WI*SUMI+DATA< 12) 
SUMl=WR*SUMI+Wl*TEMPR+OATA< 12+1) 

IF (12-13) 190 , 190 * 180 
190 W0RK( IW0RK>=SUMR 

WORM IWORK+1) = SUI“I I 
TEMPRsWR 

WR=WR*ROOTR-Wl*ROOTI+WR 
20 0 WI=TEHPR*ROOTI+WI*ROOTP+WI 
I WORK—1 

DO 210 12=13, I2MAX, IP1 
DATA ( 12) =WORK ( IWORK ) 

DATA ( 12+1) =WORK( IWORK + 1 ) 

210 IWORK=IWORK+IPO 
220 TEMPR=WMINR 

WMlNR=WMINR*WSTpR-WMlNI*WSTPl+WMINR 

230 wmini=tempr*wstpi+wmimi*wstpr+wmini 
IP1=IP2 
GO TO 130 
240 RETURN 
END 
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FFG 
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FFG 
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FFG 
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FFG 
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103 

FFG 

104 

FFG 
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FFG 
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FFG 
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FFG 

IOC 

FFG 

109 

FFG 

110 

FFG 

111 

FFG 

112 

FFG 
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FFG 

1 14 

FFG 
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FFG 

1U 
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117 

FFG 
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FFG 
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ffg 
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FFG 
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FFG 
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FFG 
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FFG 
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FFG 

lZt 

FFG 
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127 

FFG 

I2f 

FFG 
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FFG 

13C 

FFG 
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FFG 
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ffg 
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FFG 

134 

FFG 

135 

FFG 

136 

FFG 

137 

FFG 

13* 

FFG 

13* 

FFG 

1*K 

FFG 

191 

FFG 

192 


LAGCOR 

SUBROUTINE LAGCOR<LA,A,LB,BiC,LSTART,L.sTQP) 

THIS ROUTINE CALCULATES A"SAmP l E CROSS-CoRRElATIon of the record 
A OVER THE RECORD B WITH LAGS BETWEE^ LSTAKT AND LSTOP AnD 
STORES THE RESULT IN C 

**** CAUTION ***** THERE IS NO CHECK FOR A ZERO RECORD 
C 
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DIMENSION A(LA) »B(LB> ,C(LA) 

DO 50 J=LSTART,LSTOP 

U = 0,0 

SUMA=0.0 

SUMB=0.0 

SA = 0 • 0 

SB=0 .0 

IF ( LB- < L A- J+l ) ) 10»10,20 

10 N=L6 

60 TO 30 
20 N=LA-J+1 

IF(N.GT.O) GO TO 30 
DO 25 I=J ♦ LSTOP 

25 cm=-2. 

RETURN 
30 EN=N 

DO 40 1=1 »N 
IJ=I+J-1 
SUMA=SUMA+A( iJ) 

SUMB=SUMB+B( I > 

SA=S A+A { 1 J ) * A ( IJ) 

S0=SB+B( I ) *B ( I ) 

40 U=U+A< IJ)*B< I ) 

SUMA=SUMA/EN 
SUMB = SUMB/El\J 
SA=sA~sUMA*sUMA*EN 
SB=SB-SUmB*SUMB*EN 
50 C < J ) = <U-EN*SUMA*SUMB >/SQRT <Sa*SB) 
return 

END 


END-OF-RECORD 

EnD-0F-I^F0Rm a TI0N 
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D.9 Program RETD as modified to perform the 
basic analysis plus and analysis of 
covariance 
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n n n n n 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


PROGRAM RETDdMPUT. OUTPUT, TAF’E6=0UTPUT) FIX 

MAIN PROGRAM RETD 

COMMON XDATA( 150 ) ,T (200 ) , IOPLOT, IFF F , KOT , KSK IP , LT , LM * LSTOP XKED 

COMMON /INDEX/INDX (124) , IMDX1( 124 ) ,INDX2<248) , Iwf/A3 ( 124 ) RETl|_ 

COMMON/HITBLk/LHIT <15n),MDATE(lS0)»ISAV < 16 ) , MTVOL ( 15U ) XREOUC 

COMMON /HEADER/ LSTUDY ( 1 0 ) , I S , LDATE ( 150 ) , ID , LMAl i { 9 ) , IM , JOB ( 16 ) , RETU 

. LTYPE ( ?0 ) ♦ IT p, LTEST ( 125) , ITT » NSf-iP , NDAT A RETU 

COMMON/RG/ DaTESC( 3,5) , IVV (4) , SSMEAN(3), SSIGMA(3>, NNN < 3 ) , SSE ( 3 ) RETD 
COMMON /SISBUF / I BUF ( 35 ) , IfiL ( 125 ) , IUR ( 3b ) , IbUFF < 30 ) , KEY » KYE , RETU 

+ MFUNC,JFILE» IEPR RETU , 

COMMON /FF/ FITKA1 (35) ,FITRA2(35) ,FITRA3(35) ,FITRA4(35) RETD 

START , LAUNCH, SPLASH DOWN JAN25 

DATA DATESC/1B0 . ,206. , 265 . , 1 14 . , 144 . , 172 . , 109 . , 20 9 . , 268 . , DEClU- 

X 283. » 320. ,404. , 290 . , 34 2 . t 354 . / DEC10 

SL4 SPLASH DOWN IS 39 FEB 8 1974 DEC10 

IOPLOT = 0 KETO 

KSK IP = 0 RETD 

IFFT IS LOOP CONTROL TO ALLOW OVERLAY JAN25 

1FFF = -1 RETD 

1 CALL RET RETD 

CALL STAT RETD 

GO TO 1 RETD 

end retd 

SUBROUTINE L I ME ( X , Y » N » M , L « LL ) LIME 

X IS THE DATE. { INDEPENDENT VARIABLE) LINE 

Y IS THE DATA. (DEPENDENT VARIABLE) LINE 

IFLAG = 13 . LAST POINT NOT VALID LINE 

JFLAC* = 13 LAST POINT VALID LINE 

ISFLAG IS THE NUMBER OF POINTS PLOTLD • LINE 

DIMENSION X(l), Y ( 1 ) L In3 

DATA D/0,04/ L IME 

IFLAG =0 LINE 

JFLAG = 0 LINE 

ISFLAG = 0 LINE 

IF = 3 LINE 

IF(i\j-l) 9,1*1 LINE 

1 DO 6 I = 1»N LINE 

II = I*M - M + 1 LI ME 

XP = (X(II) - X ( N + M) )/X (N + 2*M) LINE 

YP = (till) - Y < N + M))/Y(N + 2*M ) LINE 

CHECK TO SEE IF POINT VALUE IS VALID. LINE 

IF(Y(II>) 3,13,23 LINE 

3 IY s -Y( II) + 0.5 LINE 

IFIIY - 2) 13,14,13 limE 

THIS IS ZERO ON THE GRAPH. LINE 

14 yp = -Y (N + l )/Y ( N + 2 * M ) LINE 

GO TO 23 LINE 

INVALID POINT. LINE 

13 IFLAG = 13 LINE 

GO TO 6 LINE 

VALID POlwT. CHECK FOR CONTINUOUS DATE. LINE 

23 JFLAG = 13 LINE 

IF (ISFLAG) 25,25,24 LINE 

24 IF ( X ( 1 1 ) - X(II-M) - 1.5) 25,35,35 LINE 

25 IF ( IFLAG ) 35,26,35 L IN 

PLOT THIS PEN DOWN. l IN 

26 CALL pL0T(Xp,Yp, IF ) LINE' 

ISFLAG = ISFLAg + 1 LINE 


IP = 2 
GO TO 6 


line 

LINE 
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DISCONTINUOUS GRAPH* PlOT AN X ON EACH END OF LIME. 

35 CALL WHERE UJ,V.F) 

I FLAG = 0 

KFLAG = JFLAG*ISFLAG 
IF(KFLAG) 16.17*16 

16 GALL SYMBOL ( U « V * D * LL * 0 . 0 * - 1 ) 
isflag = ISFLAG + 1 

17 CALL SYM60L(XP*YP*D,LL»0.0*-1) 

IP = 2 

ISFLAG = isflag + 1 
6 CONTINUE 

KFLAG = iflag*jflag 

IF (KFLAG) 9*9*29 
29 CALL WHERE ( 0 * V * F ) 

CALL SYMBOL ( U * V * 0 * LL * n . 0 , - 1 ) 

ISFLAG = ISFLAG + 1 
9 RETURN 
END 

SUBROUTINE AXIS ( X * Y * PCD* DC * SIZE * THET A * YMI M * DY * N[;LC * NL AB * NT I C ) 
DIMENSION G ( 2 ) » H ( 1 1 ) 

DATA G/.8, .56/ 

DAT A H/ * 5b » .A-* .28* «2*.14*«1* .07* .05* .033* .025* .01 1 5/ 

AC = INC 

SIb=SIGN(1.0*AC) 

2 NAC=IABS(NC) 

TH=THETA*0. 017453294 
IFiULAB.LE.O ) NLAR = 1 
IF (NT IC.LL. 0 ) NT I C = 1 
FNLAB = WLAB 
N - SIZE*FNLAB + 0.1 
N = SIZE + 0,50 
CTH = COS ( T H ) 

ST FI = SIN (TP) 

CTN = CTH/FNLAB 

STN = STH/FNLAB 

IN - N 

N1 = N + 1 

N2 = Ml/2 

ADY = ABS ( DY/FNL AB ) 

ADY=ABS(UY) 

STAT=YMIN 
EXP = 0.0 
IF ( ADY ) 9,18*9 
9 IF < ADY -100.0 ) 10,12*12 

12 ADY = ADY / 10.0 
STAT=STAT/10.0 
EXP = EXP + 1.0 
GO TO 9 

14 ADY = ADY * 10.0 
STAT=ST AT *1 0 . 0 
EXP = EXP - 1.0 
10 IF ( ADY - 1.00 ) 14,18*18 
10 IF ( ADY - 0.01 ) 14*18*18 

18 XA = X - (.20 * sIG - .05) * S T H - .0857 * CTH 

18 XA = X - < H ( NLAB + 1 ) * SIG - H(|\!LAB+5)> *ETH - .0857 * CTH 

YA = Y + (.20 * SIG - .05) * CTH - .0857 * STh 

YA = Y + (H( NLAB+1) * SIG - H ( NL AB + 5 ) ) * CTH - .0057 * STH 

I = 0 

25 I = I + 1 

CALL NUMBER ( XA . YA * 0 . 1 , ST AT * THETA * 2 > 


line 

LINE 

line 

line 

line 

line 

line 

line 

LINE 

LINE 

LINE 

LINE 

LINE 

line 

line 

LINE 

LINE 

LINE 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 



CALL Nl MBER ( X A , Y A , M < ML AR + 3 ) , ST AT , THETA t Nt -EL ) AXIS 

STAT=S AT+SIGN ( ADY ♦ OY ) AXIS 

CXA=Xi+CTH AXIS 

XA = Xl + CTN AX I 1 

C YA = YA + STH AXIS 

YA = YA + STN AXIS 

IF ( I - N2) 25,31,26 AXIS 

26 IF ( I - Nl) 25*60,60 AXIS 

31 TNC = MAC + 7 AXIS 

C XC = X + (SIZE / 2.0 -.06 * T|\lC)*CTH - (-.07 + Sib *,36>* STH AXIS 

XC = X + (SIZE / 2.0 -1 ! ( NLAB + 4 ) * TNC)*CTh AXIS 

1- l-H(NLAl3 + 4) + SIG *(HINLAB) + H(NLAR+o)))* STH AXIS 

C YC = Y + (SIZE / 2.0 -.06 * TNC)*STH + (-.07 + Sib *.36)* CTH AXIS 

YC = Y + (SIZE / 2.0 -HCNLAH+4) * T\iC)*STh AXIS 

1 + (-FMIMLAU + 4) + SIG *(H(WLAB) + H (lvLAB + 3 ) ) ) * CTH AXIS 

C CALL SYMBOL ( XC , YC t 0 . 1 4 * PCD * THE T A , N AC ) AXIS 

CALL SYMBOL ( XC , YC , H ( rLAB+2 ), BCU , THETA , MAC ) AXIS 

XC = XC ♦((TNC -6.0) * 0.12)* CTH AXIS 

YC = YC + ( ( T I'.jC -6.0) * 0.12)* STH AXIS 

IF (EXP) 35*50,35 AXIS 

C 35 CALL SYMBOL (XC»YC,0.j4*3(Xi0 >3 , THETA, 7) AXIS 

C 35 CALL SYMBOL ( XC t YC , H ( H AR + 2 ) , n) ( XlO )3 , THETA, 7) AXIS 

35 CALL SYMBOL ( XC , YC , H ( M..AB + 2 ) , 7 H < X 1 0 >, THETA, 7) AXIS 

C XC = XC + .46 * CTH -.07 * STH AXIS 

XC=XC+.38*CTH-H(NLAB+4)*STH OEC1 

C YC = YC + .48 * STH +.07 * CTH AXIS 

YCrYC+.36*STH+H(NLAB+4)*CTH DEC1 

C 40 CALL NUMBER ( XC , YC , 0 . l 0 , EXP , THETA , -1 ) AXIS 

40 CALL NUMBER ( XC . YC , H ( K AR + 3 )* EXP * THETA ♦- 1 > AXIS 

50 GO TO 25 AX 1 3 

60 FNTIC = h! TIC AXIS 

NT = N*1\)TIC AXIS 

TIM =• NT AXIS 

CTH = CTN/FIMTIC AXIS 

STH = STN/FMTIC AXIS 

X B = X + T N * C T H AXIS 

YB = Y + T i\ * S T H AXIS 

XOELT = - H ( 6 - NT I C ) * SIG * STH AXIS 

YOELT = H ( 6 - NTIC) * SIG * CTH AXIS 

XA = XB + XDELT + XDE| 7 AXIS 

C XA = XB- 0.1 * SIG * STH AXIS 

YA = YB + YDELT + YDElT A XIS 

C YA = YI3+ 0.1 * SIC * CTH AXIS 

CALL PLOT ( X A » Y A , 3 ) AXIS 

XA = XA - XDELT AXIS 

YA = YA - YOELT AXIS 

C DO 20 I =1«N AXIS 

DO 20 I =X»N AXIS 

DO 20 II =1 , NTIC AXIS 

IF( II.LT.IMTIC) GO TO 45 AXIS 

XX = XOELT AXIS 

YY = YDELT axIS 

GO To 46 AXIS 

45 XX = 0. AXIS 

YY = °» AXlSj 

46 CONTINUE AXI? 

CALL PLOT ( XB ♦ YB » 2 ) AXIS 

XC = XB - CTH AXIS 

YC = YB - STH AXIS 

CALL PLOT (XC»YC,2) AXIS 



X A - X A - CTH 
XA : XA • CTH + XX 
YA = YA - STH 
YA = YA - STH + YY 
CALL PLOT ( X A* YA i 2 ) 

XA = XA - XX 
YA = YA - YY 
XB = XC 
20 YB = YC 
K E-TURN 

end 

SUBROUTINE SCALE. (X*S,N»K> 


AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

AXIS 

scale; 

SCALE 


WHERE- X IS THE NAME OF THE ARRAY OF DATA TO BL SCANNED FOR MAX I MUISSC ALE 


AND MINIMUM VaI. UE'S. AN ADJUSTED MINIMUM VmLUE WIlL BE SCALE 

STORED IN X(N*k + 1>. AN ADJUSTED D X ( M A X . - M I N • ) WILL BE SCALE 

STOREO IN X ( N * K + K + .1 > » SCALE 

S IS THE LENGTH OVER WHICH THIS DATA IS TO bE PLOTTED. SCALE 

N IS THE NUMBER OF DATA POINTS IN THE ARRAY X. SCALE 

K IS THE REFEAT CYCLE OF A MIXED ARRAY. ( NQRMALL Y 1) SCALE 


DIMENSION X < 2 ) 


SCALE 

SCALE 


IT = 1 3 
NP - N * K 
L = NP + 1 
J = NP +R + 1 
XMAX = XU) 

X ( L ) = X(l) 

DO 2 I = 1 » IMP ♦ K 
I F < X { I ) ) 2 *2,3 

2 CONTINUE 

3 XMAX = X(I) 

X (L )= X(I) 


SCALE 

SCALE 

scale 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 


22 

24 


23 

5 

6 
7 

10 


31 


30 


32 
34 

33 


X { L ) — 0.0 
DO 10 I = 1 * NP » K 
IF ( X ( I > ) 22*10*23 
ITEST = 2.5 - XU ) 

IFUTEST) 10*24,10 
X ( L ) = 0.0 
IT = 0 
GO TO 10 

IF (XMAX-XU)) 5*6*6 
XMAX = X(I) 

IF (X < L I - X ( I ) ) 10*10 7 
X ( L ) = X(I) 

CONTINUE 

DX = (XMaX - X ( L ) ) /S 
IF (DX) 31*31*30 
X < J) = 1.0 
X ( L ) = X ( L ) - 0.5 
RETURN 

IDX = ALoGl 0 (DX) 

IXMN = X ( L ) * 10.0 ** (-IDX) 

IF <X(L) >32*33,34 

IXMN = X(L) * 10.0 ** (-IDx> 


X ( L ) s IXMN 

X ( L ) = X ( L ) * 10. C ** I OX 
UX = ALOGIO ( ( X M A X - X ( | ))/S) 


IPX = DX 
XMAX = IDX 


0.95 
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SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 

SCALE 



ooonno non n o onon 


dx=io.o**<dx-xmax) scale: 

XMAX =1.0 SCALE 

41 IF (PX-1.0J 40*20*11 SCAL 

40 DX = PX * 10.0 SCAl, 

IDX = I DX - 1 SCALE 

GO TO 41 SCALE 

11 X M A X = 2 . 0 SCALE 

IFUJX-2.0) 20,20,12 SCALE 

12 XMAX = 4.0 SCALE 

IF (LX-4.0) 20,20*13 SCALE 

13 XI“lAX = 5 . 0 SCALE 

I F ( OX - 5 • U > 20,20,14 SCALE 

14 XMAX=«.0 SCALE 

IF (OX-S.O) 20,20,1b SCALE 

15 XMAX=10.0 SCALE 

20 X(J) = XMAX * 10,0 ** I DX SCALE 

IF < I T ) 49,49,39 SCALE 

39 CONTINUE SCALE 

I H A X = XMAX + 0.00001 SCALE 

IXMN = X ( L ) * 10.0 ** (-IDX) SCALE 

IMGD = IXMN/IMAX* I MAX SCALE 

X < L ) = I MOD SCALE 

X ( L ) = X ( L ) * 10.0 ** IDX SCALE 

GO TO 59 SCALE 

49 CONTINUE SCALE 

X(L) = 0.0 SCALE 

59 CONTINUE SCALE 

RETURN SCALE 

END SC AO 

sulroutine ret ret' 

RET 

MSC ENDOCRINE DATA RETREI\/AL PROGRAM RET 

FIRST LOOK STATISTICS PROGRAM . RET 

RET 

COMMON XDATA(1 5 0) , T ( 2 0 0 > • IO p LO T . 1 FF F , K0T * KsK I P , LT * LM , LsTOP XREOuC 

COMMON /INDEx/IMDx(12«4) ,IN0xl(124) ,INDx2(24b) ,INDx3<124) REt 

CUMMON/HITBlk/LHIT(150) *M0ATE< 15 0) , ISAV < 16) ,mT\/OL< 150) XREDUC 

COMMON /HEADER/ LSTUDY ( 1 0 ) * IS , LDATL ( 150 ) , I D * LM AN < 9 ) » I M , JOB ( 16 ) , RET 

. LTYPE(20) .iTp.LTEST (125) ,ITT,NSMP,NDATA RET 

COMMON /S1SBUF/ I&UF ( 35 > * IBL ( 125 ) , IUR I 35 ) , IOuFF ( 30 ) * KEY * KYE , RET 

COMMON /SISBUF/ JRUF ( 35 ) , I &L ( 1 25 ) , IUR ( 35 ) , IfauFF ( 30 ) » KE Y ♦ K YE , RET 

+ MFUNC,IFILE»ILRR RET 

COMMON /FF/ FITRA1 (35) ,FITRA2< 35) ,pITRA3<35) ,FITRA4(35) R£T 

DIMENSION IBuF ( 14 ) RET 

EQUIVALENCE(IBUF,T) RET 

EXTERNAL ERROR RET 

RET 

RA1=SAMPLE DIRECTORY *** RA2=UR1nE FILE *** RA3=BL00D FILE RET 

*** RA4=DAILY FILE *** RET 

RET 
RET 

PLACE kDVED FILES IN UPDATE MODE EXCLUDING aiR Alai DHICH IS RET 

to be used as a sequential search file ret 

ASSIGNED TO FORTRAN UNH NO. 1 RET 

RET, 

IF(IFFF) 31,201,140 RET 

C 31 CALL RAND0M(4*alRA2a, 125*5, 7*100 ,100 ,ICoDE*LOC) RET 

31 continue ret 

CALL FILEIS(FITRA1 ,3LLFN,3LRA1 ,2LKA,KEY*2LKL,1o»2LKT*1LI ,2LRB,5 RET 
+ * 3LMRL , 350,3LMI\)R* 350,3lwSA, T) RET 

-184- 



CALL S TOREK (FITRAl*3LFRL*20) rET 

CALL ST0REF<F1TRA1.2LEX* ERROR) RET 

CALL OPENM (FITRA1 * 3LI-0 ) RET 

CALL REWrvjCMFITRAl) rET 

CALL FlLtIS(FlTRA2, 3Ll FN * 3LRA2 * 2LKA » KEY » 2LKL , 1 0 * 2LKT * 1L 1 ♦ 2LRB . 5 RET 

+ *3LMRL*1250,3LMNR*125G»3LWSA« 1) RET 

CALL SIGKEF(FITRA2,3lERL,0) rET 

CALL STOREF (F1TRA2.2LEX * ERROR) rET 

CALL OPENM (FIl RA2* 5LINPUT ) RET 

CALL REWNO < FITRA2 ) RET 

CALL FILE IS (FITRA3 , 3LLFN ,3LRA3 t 2LKA »KEY»2LKL, 10 i 2LK T » 1LI »2LR8» 5 RET 

+ «3LHRl» 35o.3l.MMK* 350,3lWSA. T) r£T 

CALL STOHEF (FITRA3, 3LFRL, 0 > RET 

CALL STORE’F ( FI TRA3 « 2LFX * ERROR) RET 

call openmi ( fitra3« sl input ) ret 

CALL REWND( FITRA3 ) rET 

CALL FILEIS ( FITRA4 ♦ 3LLFN * 3LRA4.* 2LKA * KEY , J2LKL » 10 t ?lKT i 1L I * 2LrB * 5 RET 

+ *3l.MRL* 300 * 3LMiSiH * 300 * 3LGSA * T ) RET 

CALL STORE F (FITRA4.3LFRL.U) rET 

CALL STOKE F(FITNA4*2LFX* ERROR) RET 

CALL 0PEi\)M(FITRA4.5LIi\ ! pUT > rET 

CALL REW|\,D(FI7RA4 ) ret 

IFFF = 0 RET 

c RET 

C INITIALIZE COUNTER FLAGS FOR THL FIRST PASS OF RET 

C ANY GIVEN RETREIVAL rET 

c RET 

201 ISFLG = 1 rET 

IDFLG = 1 rET 

IMFLG =1 rET 

ITPFLG = 1 rET 

ITTFLG = 1 ret 

IFFF =1 ret 

c RET 

C READ ONE DATA CARD rET 

c RET 

1 READ 200, (ISAV(I) *1=1,16) pET 

200 FORMAT (A4*1X»A4*1X«14I5) RET 

C RET 

C DETERMINE CARD TYPE AND COUNTER SEQUENCE RET 

c RET 

IFdSAVd) .EQ.4HJ0B ) 60 TO 19 rE T 

IF(ISAV(1).EQ.4HSTUD. AND* ISFLG. Eig.l) GO TO 5 RET 

IFdSAV(l). EG.4HSTUD.flND. ISFLG. EQ.C) GO TO 45 rET 

IFUSAV(1 ) .EG. 4HDATE.AN0. IDFlG. EQ. l) GO TO o RET 

IFdSAVU) .EG. 4 HDATE. AND. IDFlG. EQ.U) GO TO 46 rET 

IF( ISAV (1 > .EG.4HMAN . AND. ImFLG. EQ . 1 ) GO TO 7 RET 

iFdSAVd) .E0.4HMAN . AMD . I MFlG . EQ . 0 > GO TO *7 RET 

IF(ISAVd) .EQ.4HTYPE. AND. ITPFLG. EG. 1) GO TO 6 RET 

IFdSAV (1 ) .EQ.4HTYPE. AND. Il PFLG. EG. 0 ) GO TO 46 rET 

IF (ISAV <1 ) .EQ.4HTE ST. AND. ITTFlG.EG. 1 ) GO TO 9 rET 

IFdSAVd). EQ.4HTEST. AND. ITTFLG. EG. 0) GO TO 49 rET 

IFdSAVd ) .EQ.4HEND ) GO TO 40 rET 

IF ( ISAV (1 ) .EQ.4HE0F ) GO TO 9y r Et 

| C ft £ y 

C BUILD RETREIVAL CR ITER I A ARRAYS rET 

C »<et 

5 jSTALL-0 ret 

IS = 0 RET 

IGF LG = o -1 85- RET 



45 CALL SETCRI (LSTUDY, IS, JSTALL) ret 

C OUTPUT ♦ (LSTUDY (I ) * 1 = 1 * 5 > * IS«JSTALL RET 

GO TO 1 RET 

6 JUTALL=0 RET 

ID = 0 RET 

IDFLG = 0 RET 

46 CALL SETCRKLDATE*ID*JDTALL> RET 

C OUTPUT* (LDATE(I) ♦ 1 = 1 * 1 fi ) *ID*JDTALL RET 

GO TO 1 RET 

7 MANALL=0 RET 

IM = 0 RET 

IMFLG = 0 RET 

47 CALL SETCRI ( LMAN , I M * MANAL L ) RET 

C OUTPUT* ( LM AN C I > *1 = 1 *9) * IM.MANALL RET 

GO TO 1 RET 

6 JTPALL=0 RET 

I TP = 0 RET 

ITPFLG =0 RET 

40 CALL SETCRI (LTYPE* ITP.jTPALL) RET 

C OUTPUT* (LTYPE(I) *1=1*10) *ITP.JTPALL RET 

GO TO 1 RET 

9 JTTALL=0 RET 

ITT = 0 ‘ RET 

ITTFLG = 0 RET 

49 CALL SETCRI (LTLST* ITT, JTTALL) r E T 

I T 1 =1 RET 

C IF( JTTALL. EU.l) ITT = 124 RET 

LSTART = ISAV ( 3 > H ET 

LSToP = I SAV ( 4 ) RET 

IF <LSTOP,EO*0) LSTOP=lSTART D ECl 

GO TO 1 RET 

19 DO 119 1=1,16 rET 

119 JOB ( I ) = ISA V ( I ) rET 

IF ( IoPLqT .EQ.O.AND • JoR (3) . GE , 1 0U0 ) CALL pL 0 TS < 14HNASA ENDoCRlNE, rET 
1 1*)) RET 

IF ( JOB ( 3) *GE. 1000 ) IOPLOT = 999 RET 

IF (JOB (2) .EO.4HDATE.OR . JOB l 2) . EQ . 4HB0TH . OR . JOB < 2 ) . E Q . 4HV0LU ) GoTol DEC 10 
JOB ( 2 ) =4H0ATE OECIO 

PRINT 601 OECIO 

601 FORMAT {* UNKNOWN JOB PARAMETER DATE ASSUMED* ) DEClO 

GO TO 1 rET 

C RET 

C BUILD HIT ARRAY OF SAMPLE NUMBERS rET 

C RET 

40 CONTINUE R ET 

LT = LSTART - 1 rET 

c RET 

C DO 4321 LT=LSTART,LSTnP RET 

140 IF < IF FF - 2 ) 145,240,145 rET 

145 LT = LT + 1 R ET 

C RET 

IF < LT - LSTOP) 150*150*4321 RET 

150 LM - 0 rET 

IFFF = 2 R ET 

C IF(KoT.Eq.O) CALL SSWTCHdtKKT). ret 

C IF(KKT.ECJ.l) GO to 999 RET 

LTEST(l) = LT rET 

C DO 4321 LM=1,3 rET 

240 LM = LM + 1 RET 

IF(LN - 3) 250*250*245 -186- RET 
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245 IF FF = 1 
GO TO 140 
250 LMAM1) = LRi 
IH = 1 

C REWIND 1 

CALL REWMD(FITRAI) 

c 

c 

C THE. KEYED (KA1) SAMPLE DIRECTOR* FILE IS TrEATEU AS A SEQUENTIAL 
C FILE DURING THE SEARCH FOR SAMPLES WHICH SATISFY 

C THE INPUT CRITERIA 

C 

C 10 BUFFER I fg ( 1« 1 ) < 1BUF (1 ) , IEUIF ( 14 ) ) 

10 CALL GETIm (F ITRA1 ) 

IF ( I FETCH ( F I TR A1 1 2LFP ) .EG • 1 00b ) GO TO 23 
2 IF < JSTALL.EQ. 1 > GO TO 12 
DO 11 1=1, IS 

IF ( IBUF ( 2 > »EQ • LSTUOY ( I ) ) GO TO 12 

11 CONTINUE 
GU TO 10 

12 IF ( JDT ALL •EO . 1 • AND • JOR ( 2 ) *EO . 4HV0LU ) GO TO 44 

CHECK FOP SIMULTANEOUS 5) A L L o) AMO DATE tfSAVLoi OPTION 

I F ( JOT ALL • EQ . 1 • AND . < JOB ( ? ) . EQ , i+HD AT £ . OR . JOB < 2 ) . EG . 4-HEOTH ) )GO TO 
DO 13 1=1 t ID 

IF ( IDUF ( 3 ) .EQ.LDATE ( I ) ) GO To 14 

13 CONTINUE 
GO TO 10 

41 MDSAV = I BUF ( 3 ) 

GO TO 44 

CHECK F'uR DATE SAVE OPTION 

14 IF < JOB ( 2 ) . E Q .4HDATE .OR . JOB ( 2 ) , ED . 4HB0TH ) KDSA V=LDATE ( I ) 

44 IF ( MAN ALL . EO • 1 ) GO TO 16 

DO 15 1 = 1 » I M 

I F d BUF ( 4 ) • E Q ♦ L M A N d ) ) GO TO 16 

15 CONTINUE 
GO TO 10 

16 IF ( JTPALL.EQ.l) GO TO 18 
DO 17 1=1, ITP 

IF( IBUF15) .EO.LTYPEt I ) ) GO To 18 

17 CONTINUE 
GO TO 10 

CHECK FOR MASTER SAMPLE NUMBER 

IB IF ( I Bl'F (14) . EO * 0 ) GO TO 21 
MIH = IH-1 
DO 20 1 = 1, hit! 

IF(LHIT(I ) .EQ.1BUF (14) ) GO TO 10 

20 CONTINUE 
LH 1 T ( I H ) = 1 BUF (14) 

PRINT 220, (LHITd > ,1 = 1,10) 

220 FORMAT ( 5X ♦ 5HLH IT 2 , 5X , 5 f) II 0 ) 

GO TO 22 

21 LHIT< IH) = 1BUF(1 ) 

PRINT 221, (LHlTd ) ,1 = 1 ,10) 

221 FORMAT ( 5X * 5HLH I T1 , 5X , 1 0 1 3 0 ) _-|Q7- 


RET 

RET 

RET 

RET 

RET 

RET 

ret 

RET 

RET 

ret 

RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
41 RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 

rE!t 
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if date, save option was SPECIFIED fill date akray corresponding 
TO SAMPLE NUMBER HIT ARRAY 

2? IF ( JOB < 2 ) • EQ « 4HOA7 E • OR , JOB ( 2 ) , EO • 4HBOTH ) MDATE ( 1H >=M0SAV 

IF TOTAL VOLUME SAVE OPTION WAS SPECIFIED FILL VOLUME ARRAY 
CORRESPONDING TO SAMPLE NUMBER HIT ARRAY 

IF < JOB ( 2 ) • EO . 48V01. U • Op . JOB { 2 ) , FO • 4HB0TH ) MT VOL < Ih)=IBUF ( 1 U ) 
Ih=IH+l 

IF(IH.LE,151) GO TO lO 
23 NSMP = IH - 1 

IF(NSMP.LE.ISO) GO To 35 
PRINT 30 

30 FORMAT dhl , 17HHIT FILE OVERFLOW ) 

STOP 30 
C 

35 CALL RETRVE 

PRINT 300 , LSTULY,LMAN, JOB , LT YPE » NSMP , NuAT A 
300 FORMAT (Ht0.6HLSTULY»lnll0t//f2Xt4HLMANtyil0.//» 

» IX, 4HJ0B ,A4,5X,A4.5X,1416,//,6h LTTPL , 20 1 5 , // , 

. IX, 7HNSMP = ,15, 10X»6HNDaTA = ,15) 

PRINT 301, (LDATE( I ) ♦ Irl, ID) 

30] FORMAT <6H LD AT E /,(lOliO)) 

PRINT 302, (LTEST ( I ) , 1=1 , ITT) 

302 FORMAT ( 6H LTEST , ClOilO)) 

PRINT 306, (MTVOLd ) , IsliNStfP) 

3 06 FORMAT ( 1H0,5HMT VOL ,/, ( 1 0 I X 0 ) ) 

PRINT 303, < MDATE ( I ) , 1 = 1 ,l\iShP> 

303 FURMAT ( 1H0 , 5HMDATE ,/, (10I1G) ) 

PRINT 304, (LHIT ( I ) , 1 = ] ,lMShP) 

304 FGRMAT(/ ,6H LHIT ,/,(lOI10)) 

PRINT 305 « (XDATA (1 ) » 1 = ] , IVDATA ) 

305 For<MAT(lH0,5HXDATA,/,{0Fl5,6) > 

C PRINT 300, LSTUDY,LMAM,JOB,Ll YPE,NSHP*NDA'i A 

C 300 FORMAT ( 1 Hi » GHLSTUdY , 1 (1 1 10 , / / « 2X , 4hLMAN , 9 1 1 0 , / / , 

C , 4H JOB ,A4t5X, A4t5X, 1416,//, bHLTYPE ,2015,//, 

C . 7HNSMP = , 1 5 , 1 0 X » R HNU A T A = ,15,// ) 

C PRINT 301, (LDATE(I ) , I=i, ID) 

C 301 F0FHAT(5HLDATE /dlOUO)) 

C PRINT 302, (LTESTd ) ,1 = 1 ,ITT) 

C 302 FORMAT ( 5HLTEST , (loiiol) 

C PRINT 30t>, (MTVOL (I > , 1 = 1 ,NSMP ) 

C 306 FORMAT ( 1H1,5HMTV0L ,/, (lOllO ) ) 

C PRINT 303 , ( MDATE d ) , 1 = 1 ,NSMP ) 

C 303 FORMAT ( 1H1*5HMDATE ,/, (10110 ) ) 

C PRINT 304, (LHIT ( I ) ,I=i ,NSMP) 

C 304 FORMAT (//,5HLHIT ,/,(i0ll0)) 

C PRINT 305,(XDATA(l),I = i,N[jATA) 

C 305 FORMAT (1H1 , 5HXDATA ,/, ( PF1 5 • 6 ) ) 

C 

C 


RETURN 

C CALL STAT 

4321 CONTINUE 
IFFF = 0 

f 


RET 

RET 

R| 

Rl 

r<E r 
RET 
RET 
RET 
RET 
RET* 
RET 

XREDUC 

RET 

XREDljC 

RET 

RET 

RET 

RET 

RET 

RET 

DEC 10 

RET 

DEC 10 

RET 

RET 

RET 

RET 

RET 

?! >° 

DEtiO 

RET 

DEC 10 

RET 

DECK) 

RET 

ret 

RET 

RET 

ret 

RET 

RET 

RET 

RET 

RET ' 

RET 

RET 

RET' 

RET 

RET 

PET 

RET 

R.ET 

RET 

R 
R 

RET 

ret 
ret 
ret 
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REWIND 1 

CALL REWNU ( F ITRA1 ) 

' GO TO 201 

886 PRINT 6800 

8800 FORMAT (15H FILE 1 REWOUND ) 

RETURN 
99 CONTINUE 

CALL CLOSER! (FITR A 1 ) 

CALL CLOSEh ( FITKA2 ) 

CALL CLOSERS FI TR A3) 

CALL CLUSEM(FITRA4 ) 

IF(IOPLOT) 199*199. 999 
999 CALL STOPPL T 
PRINT 900 

900 FOKhAT ( 19H0NORNAL. END OF J013 . ) 

STOP 2000 ' 

199 STOP 1 
END 

SUBROUTINE St'TCR I ( LBUF , Jl'iUX * L ALL ) 

THIS SUBROUTINE STORES INFORMATION FROM ONE DATA CARD INTO THE 

corresponding criteria arrat 

COMMON /INDEX/ INOX ( 12a ) , I nDXi ( 124 ) , I nDX 2 t 246 > . InDX 3< 124) 
CORiRION/Hl TBLK/L H I T ( 150 ) ♦MDATECISO ) . ISAV ( 16 ) t RiTVOL (150 ) 

COMMON /HEADER/ LSTUDy (10) * IS.LDAU ( 150 ) •ID«LMAN(9) * IM. JOD< 16) . 
. L TYPE ( P 0 ) ♦ I Tp ♦ L TEST ( 125 ) ♦ I T T * N SHP . NDA T A 

COMMON /SISBUF/ IDUF (35) , 1PH125) , IUR(3b) . IbUFF (30 ) » KEY . KYE « 

+ R1FUNC ♦ IFILE ♦ IERR 

COMMON /FF/ FITRA1 (35) .FITPA2( 35) ,FITRA3(35) .F ITRA4< 35 ) 
DIMENSION LBUF( 1 ) 

IF( ISAV<2) .EQ.4HALL . OR . I SAV ( 2 ) . EG . 4U ) GO T(j 1 

JNDX = JNOX +1 
LBUF ( JNDX ) = ISAV ( 3 ) 

IF < ISAV(2> .EQ.4HEACH) GO TO 3 
INXT=ISAV ( 3 )+l 

2 IF( INXT.GT.ISAV(4) ) RETURN 
JNDX = JNDX + 1 

LBUF< JNDX)=INXT 
I i\i X T = I N X T + 1 
GO TO 2 

3 DO 5 1=4.16 

IF < ISAV (I). EG. 0) RETURN 
JNDX = JNDX + 1 
LBUF( JNDX)=ISAV( I > 

5 CONTINUE 
RETURN 
1 L ALL= 1 
RETURN 
END 

SUBROUTINE RE1RVE 

THIS SUBROUTINE RETRE'VES THOSE DATA VALUES FRoRi THE F’.LOOO uR 
URINE FILES WHICH SATISFY ThE INPUT CRITERIA 
THE DATA values are stored IN ARRAY XDATA 

COMMON XDATA ( 150 ) * T ( 20 0 ) ♦ I OPLOT . IFFF . KOT . KSK IP , LT t LM. LSTOP 
C COMMON /INDEX/INPX ( 124) * INDXl ( 124 ) . IIJOX2 ( 246) , INDX3 ( 124) 

COMMON/ INDEX/ I NDX (136) .INDX3(136) lg9 


RET 

RET 

RET 

RET 

RET 

RET 

RET 

RET 

ret 

RET 

RET 

RET 

RET 

Rf'.T 

RET 

RET 

RET 

NET 

NET 

RET 

setcri 

setcri 

setcri 

SETCRI 

SETCRI 

XREDUC 

SETCRI 

setcri 

setcri 

setcri 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

SETCRI 

setcri 

setcri 

setcri 

setcri 

setcri 

setcri 

setcri 

SETCRI 

setcri 

setcri 

setcri 

setcri 

setcri 

setcri 

setcri 

retrve 

RETRvE 

retrve 

retrve 

rEtrvE 

RETRVE 

XREDUC 

RETRVE 

DEC10 
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COMMON/HITBLK/LHIT<150> ,MDATE(150) . ISAV ( 16 > , MT VOL ( 150 ) XREDUC 

COMMON /HEAOER/ LSTUDy < 1 0 ) , IS * LUATE ( 1 50 ) . I D , LMAN ( 9 ) ♦ IM , JOB ( 16 ) , RETRVE 

. LTYPE ( 20 ) , iTpi LTEST (125) »1TT ,NSMP,NDATA RET'" "t 

' 1 COMMON /SISBUF/ IBUF ( 35 > . I BL (125 ) , I UR ( 3b ) , IBUFF ( 30 ) » KEE , KYE , RET [ 

+ MFUNC,lFILE,IERK RETRVE 

COMMON /FF/ FITRA1(35),FITRA2(35),FITRA3(35),FITRA4<35> RETRvE 

DIMENSION XTEMP ( 125 ) RETRVE 

INTEGER kEY<2> RETRVE 

EQUIVALENCES, XTEMP) RETRVE 

EQUIVALENCE ( KEE , hEY ( 2 ) > RETRVE 

DATA ( INOX ( I ) » I =1, 1 36 >/400» 401,402* 403, 404,405,503,406, 40 7 , 408 , 4 09 » DEClO 
, 410 ♦ DEC 10 


1 41 1,4 12 , 413 ,41 4, 4 15, 416, 417 *4 18, 419, 420, 42 1,422 *423, 424, 425 ,426, DEC 10 

2 427, 428,429,430, 43l , 432 , 433 * 4 34 , 435 » 436 , 437 , 438 » 4 39 * 440 , 441 , 442 , DEC 10 

3 443 , 1 +^ 4 , 445 ,446, 447, 4 46, 449 ,450, 451, 452 ,4 53 *454 ,455, 456, 457 ,456, DEC 10 

4 459 « 46 0 i 461 ♦ 462 » 463, 464 ♦ 465 ♦ 466 i 467 i 466 » 469, 470 » 47 1* 472 « 47 3 t 474 i DEC 10 

5 475,476,477,478,479,480,461 ,482,403,404, 485 , 46f, , 487 * 488 » 489 , 490 , DEC 10 

6 491 , 492,493,494,495,496,497,498 ,499, 500, 501,50?, 300, 30 1 , 302 , 30 3 , DEC 10 

7 3 0 4 , 305,306,307,321,308,309,310, 3 11, 3 12, 3 13, 314, 315, 3 16, 3 17, 31 6 , DEC 10 

. 319, DEC 1 0 

8 320, 514* bl 5 , 516, 517, 518, 519, 520,^21,522,523/ OEC10 

DATA ( I MUX 3 ( I), 1 = 1 , 1 36 )/2, 3, 4, 5, 6 , 7, 8 , 9, 10, 11, 12, 13, 14, lb, 16, 17, DEC 10 

1 18,19,20,21,22,23,24,25,28,27,28,29,30,31,32,33,34,35,36,37,38, DEC 10 

2 39, 40, 41, 42, 43, 44, 45,46, 47, 46, 49, 50,51, 52, 53, 54, 55, 56,57, 56, 59, DEC 1 0 

3 60 ,61,62,63,64,65,66,67 , 68 t 69, 70, 71, 72, 73*74, 75, 76, 7 7 ,78,79,80, DEC 10 


4 81, 82 ,83 ,84, 85, 66, 87, 88, 89, 9 0,9l, 92, 93, 94, 95, 96* 97 ,96, 99,100* DEC 10 

51 01, 102, 103, 104,105,2,3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 , l4 , 15 , 16 , 17 ♦ 18 , l9 , [)EC10 
6 20,21,22,23,116,117,118,119,120,121,122,123,124,125/ DEC10 

DATA ICDT/445B/ RET 

M=1 RET 

KSAV=0 RETRVE 

IERR=0 RETRVE 

DO 27 K=1,NSMP RETRVE 

DO 27 1=1, ITT RETRVE 

RETRVE 

identify test number in tndex hEtRvE 

retrvE 

DO 24 J=1 , 1 36 DEC10 

IF(LTEST(I).EQ.INDX(J) ). 60 To 2b DEClO 

24 CONTINUE DEClO 

STOP SIINVALID TEST NUmFjERoi DEClO 

25 IJ=J UEC10 

LREC=INDX3( Ij> DEClO 

IF (LTEST (I) -400) 41,31*31 RETRVE 

31 INDX1 = 1RU RETRVE 

GO TO 50 RETRVE 

41 INDXl = 1RB RETRVE 

RETRVE 

PICK UP KEY FROM HIT ARRAY OF SAMPLE NUMBERS RETRVE 

retrve 

50 KEY ( 2 ) =LHIT ( K ) RETRVE 

P.ETRV^ 

DETERMINE IF DATA NEEDED IS FROM CURRENT RECORD RETRVE 

retrve 

IF (KEY (2) .EQ*KSAV) Go To 26 RETj E 

ret E 

CHECK FOR URINE OR BLOOD FILE RETRVE 

retrve 

29 IF< INDXKIJ) .EQ.1RU) GO TO 28 RETRVE 

29 IF < INDXl. EQ.1RU) Go To 28 10n RETRVE 
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C CALL RAND0M(l,olRA3a.XTrMP,32.KEY.100 .100 .ICODE.LOO RETRVE 

CALL GET ( F ITRA3 ) RETRVE 

LOC = 3 RETRVE 

IFILE = 3 RETRVE 

IF ( IK RR ,NE . 0 ) GO TO lnO RETRvE 

GO TO 26 RETRVE 

C 26 CALL RAIMDOK(l,aRA2a,XTEMP.l25*KEY, 100 ,100 .ICOUE.LOC) RETRVE 

26 CALL GET < FI TRA2 ) RETRVE 

LUC = 2 RETRVE 

IFILE = 2 RETRVE 

I F ( I F. RR . NE • 0 ) GO TO 100 RETRVE 

RETRVE 
RETRVE 

FETCH VviORD NUMBER OF DATA RECORD FROM INDEX t STORE DATA RETRVE 

VALUE IN CURRENT XD AT A LOCATION AND INCREMENT RETRVE 

XDATA LOCATION COUNTER H RETRVE 

RETRVE 

retr.ve 

26 LREC=TNDX3( IJ) rETRvE 

26 XDATA(M>=XTEMP(LREC) RETRVE 

30 M = M + 1 RETRVE 

IFIM.GT.150) GO TO liO XKEDUC 

KSAV=KEY<2> RETRVE 

27 CONTINUE RETRVE 

RETRVE 
RETRVE 

NOATA = NUMBER OF DATA VALUES REjREIVEU RETRVE 

RETRVE 
RETRVE 

NDATA=M-1 RETRVE 

RETURN RETRVE 

100 IF(IEPR .LQ.ICDT) GO TO 105 RETRvE 

PRINT 1 01 i 1ERR .KEY ( 2 ) RETRVE 

101 FORMAT (1H . 19HR ANDOM FRR0R-RETRVE.0B.5X. 14 ) RETRVE 

STOP 100 RETRVE 

105 PRINT 10A.KEY12) RETRVE 

104 FORMAT ( 1H . 27HSAMPLE NO. NOT FOUND-RETR.VE , 5X , 14 > RETRVE 

XDAT A ( M ) =-l . RETRVE 

IERR=0 RETRVE 

GO TO 30 RETRVE 

110 PRINT 111 RETRVE 

111 FORMAT (1H1.43HDATA BUFFER FULL BEFORE ALL DATA RE T REIVED ) RETRVE 

STOP 110 RETRVE 

END RETRVE 

SUBROUTINE STAT STAT 

COMMON XDATA < 150 ) » T ( 200 ) « lOPLOT » IFF F . KOT . K$K I P , LT ♦ LM , LSTOP XREOUC 

COMMCN/HITBLK/LHIT ( 150) . MDATE (150) . IS AV (16) ,MTVCLU50) XREOUC 

COMMON /HEADER/ LSTUOY ( 10 ) . IS . LDATL ( 1 50 ) . ID . LMAN ( 9 ) . IM . JOB ( 16 ) , STAT 

, l-TYPE(20) » ITP.LTESI (125) . I TT » NSMP ♦ NOAT A STAT 

COMMON/RG/ DATE SC (3. 5) .IVV(4) . SSMEAN ( 3 ) . SSIGMA C 3 > . NNN ( 3 ) , SSE ( 3 > STAT 
COMMON CHEM (200) .TIME (200 ) ,N0B(3) .TREAT ( 6 ) , SL ( 6 ) , SS ( 12 ) ,XMSC( 12) ANACl 
2 .F< 12) ,PROBF( 12) »XH<6) *YM(6) .NUFC ( 12 ) ,SXX<6 ) , SY Y ( 6 ) « SXY ( 6 ) ANACl 

COMMON ZCH(2»60) .WORK(2.G0) ANACl 

DIMENSION C<28) ANACl 

REAL KsTDOY. KTYPE. KMAN. KTEST. NITS STAT 

DIMENSION ISIG ( 2 ) STAT 

DIMENSION X(l) STAT 

DIMENSION LTEXT ( 120 ) . MTEXT ( 120 ) » XOUT(120) STAT 

DIMENSION NDF(3) . S(3), P(3). TM(3). WTV<3>. XMS(o). IPP ( 3 ) , IP2 ( 3 ) STAT 

DIMENSION IDK120). In2<120). LK(3)_ 1 9 1 _ STAT 



o n o 


Efcili IVALENCE(X.XDaTA) 
data 101 /120*1/, LK/3*0/ 

DATA IPP/4HPRE . 4HIN ♦ 4HP0ST/ 

DATA IP2/8HPRE-IM , AHlM-POST ♦ 8HPRE-POST/ 
C 

C FILL OUTPUT ARRAY 

C 


DATA ISTAR/1H*/, I 6 LANK/ 1 H /, ISAVE/ 4 HSAVE/ 

DATA IPLUS/1H + /, IMINUS/IH-/, IPPL/2HR+/, IMM1/2H--/ 

DATA IUATE/4HDATE/, I VOLU/4 HVOLU/ , IBOTH/4HBOTH/ 

WOBS = NLATA 

1 IF ( MOBS - 1) 999.999.2 

2 LOOP = lit 
IDATfcF = 0 
IVOLUF = 0 

IF ( JOB ( 2 ) »EO . IDATE ) InATEF = 3 
IF< J0EH2) .EQ. IVOLU) IvOLUF = 3 
IF < JOB < 2 ) ♦IME.IBOTh) Gn TO 3 
IDA TEF = 3 
IVOLUF = 3 

3 KKK = NOBS/LOOP 

CALL TEXT ( LSTUDY ( 1 ) . itYPE(I). LMAN(l), LTEST(l). 

X KSTUDY. KTYPE. KMAN . K TEST ♦ fM ITS > 

CALL DATEdWORD) 

PRINT 10 0 0 . JOB ( 3 ) 

1000 FOHMAT<1H1.20X,42HWASA MSC ENDOCRINE DATA RETRF.IVAL PROgR AM . , 1 7 / ) 
PRINT bOO. LSTUDYll). KSTUDY . IWORD 
500 FORMAT (7H0STUDY » » 12 » 2y . A8.20X.A10) 

PRINT 600. LTEST(l). KTEST.LMAN(l). KMAN 
600 FORMAT ( 6 HOTEST * , 1 3 « 2X A 8 » 20X , 4HMAN , , 14 , 2X » A 8 ) 

PRINT 700. (LTYPE(I).I=l,ITP) 

700 FORMAT ( 6 HGTYPE, .2013) 

PRINT 800. NITS 

800 FORMAT ( ISHOJULIaN date . AO) 

C DO 150 L = 1 » LOOP 

L = 1 
LOOP = 1 

DO 210 I I=LOOP.NOES . LOOP 
I = II + L - LOOP 
IPLACE = I I/LOOP 
210 XOUT ( I PLACE ) = XDATA(j) 


SORT BY DATE 

NOSLTS = NOBS/LOOP 
NM1 = NOSLTS “ 1 
DO 230 1=1, NM1 
IMAX = 9999 
I SUB = I 

DO 220 J=I t NOSLTS 
IF< IMAX-MdATe< J> ) 220,220,211 
211 IMAX = MDATE(J) 

ISUB = J • 

220 CONTINUE 

ITEMp = MDATE(ISUB) 

temp = xgutlisub) 

MDATE(ISUB) = MDATE(I) 
XOUT(ISUB) = XOUT(I) 

MDATE(I) = ITEMP 
XOUT ( I ) = TEMP 


STAT 

STAT 

sta| 

sta" 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

StAT 

STAT 

stat| 

STA-n 

DEC1C 

oEcir 

STAT 

STaT 

stat 

stat 

stat 

stat 

stat 

stat 

stat 

STAT 

stat 

stat 

stat 

stat 

stat 

stat 

stat 

stat 

STAT 

STAT 

STAT 

STAT 

stat 

stat 

stat 

stat 

stat 

stat 



n ry n n n 


230 CONTINUE STAT 

IG = LSTUDY(l) STAT 

IVVU) = IVV(2) = IVV(3> = 0 APR24 

I V V ( 4 ) = WOSLTS STAT 

DO 240 I=l,NOSLTS STAT 

IF(MDATE(I) .LE.OATESC <?, IG) ) IVV<2) = I STAT 

IF(MDATE (I) .LE.DATESC < 3. IG ) ) IVV<3) = I STAT 

240 XOATA(I) = XOUT ( I ) STAT 

DO 133 1 = 1,3 STAT 

NFIKST = IVV( I) + 1 STAT 

NLAST = IVV(I + 1) STAT 

CALL FES IG ( L.TEXT »NFIRST »NLAST , SMEAN , S I GMA * Nl\l > STAT 

SSMEAMI) = SMEAN STAT 

SSIGMA(I) = SIGHA STAT 

NNN(I) = iMN STAT 

133 CONTINUE STAT 

NFIKST = 1 STAT 

NLAST = NOSLTS STAT 

CALL MES1G(LTEXT,NFIRST.NLAST, SMEAN. SIGMA, NN) STAT 

STAT 

IF THERE ARE 2 OR FORE PRE-FLIGHT OBSERVATIONS Th L EXTREME VALUES STAT 
ARE FLAGED ON THE BASIS OF PRE-FLIGHT MEAN AND STD, DEV. STAT 

OTHERWISE THE TOTAL MEAN AND STD. DEV. ARE USED • STaT 

STAT 

IF < NNN ( 1 ) - 2) 134.136, 13& STAT 

134 SSG = SIGMA STAT 

SSM = SMEAN STAT 

GO TO 137 STAT 

136 SSG = SSIGMA(l) STaT 

SSM = SSlUAN(l) STAT 

137 TO 1 = 2,3263 *SSG STAT 

TQ5 = l,b449*SSG STAT 

DO 166 11=1,3 STAT 

IFIRST = IVV(1I)+ V STAT 

ILAST = IVV(II + 1 ) STAT 

IF( IF I RST-ILAST >162,163 .166 APR24 

163 PRINT 401 APR24 

401 FORMAT (* SINGLE VALUE NOT ANALYZED*) APR24 

162 DO 165 I=IFIRST, ILAST STAT 

MTEXT(I) = IBLANK STAT 

IF ( X ( I ) ) 164,165,153 STAT 

153 DELTA = X < 1 ) - SSM STAT 

IF(DELTA) 155.154,157 STAT 

154 IF < X C I > .NE.2.0) GO TO 3 64 STAT 

DELTA = SSM S TAT 

GO TO 15b STAT 

155 DELTA = -DELTA S j A T 

156 IF1DELTA.GE.T05) MTEXT(I> = IHINUS STAT 

IF(DELTA.GE.TOl) MTEXT(I) = IMMI STAT 

GO TO 164 STAT 

157 IF(QELTA.GE.T05) MTEXT(I) = IPLDS STAT 

IF(DELTA.GE.T01 ) MTEXT ( I ) = IPPL S TAT 

164 PRINT 400.MDATE ( I ) , X(i>, LTEXT ( I ) . MTEXT ( I ) STAT 

165 CONTINUE sTAT 

PRINT 900,SSMEAN(II ) , SSlGMA(II) t NijNUi) STAT 

166 CONTINUE S TAT 

IF ( JOB ( 3 ) - 1000) 150,145,145 STAT 

145 IF(NN) 150,150,146 STAT 

146 CALL STPLOT(LOOP,NODS,r ! SLOT. IwOKD, KSTUDY, KTYPE ,KMAN,KTEST , SMEAN, STAT 

X SIGMA) -193- STAT 



u u a u u u 


150 CONTINUE 


ICASE = 0 
icAse = i 
ICASE = 2 
ICASE = 3 
ICASE = 4 


NO TESTS 

PREFLIGHT ONLY 

PRE AND INFLIGHT ONLY 

ALL 

PRE AND POSTFLlGHT ONLY 


IF(IMNN(1)-1) 170,170,171 

170 NT = 0 
ICASE = 0 
GO TO 999 

171 SSE(l) = SSIGNAtl ) /SORT ( FLOAT ( NNN ( 1 > > ) 

PRINT 3000 * NNN ( 1 ) » SSpEAfKl), SSIGHA(1)» SSE(l) 

3000 FORMAT ( 20 ( 4H---“ ) /23H PARAMETRIC ST ATI8T I CS « //8hG SUMMARY/ 

X 39 hOSAMPLE N MEAN SD SF./4HGPKr» 16* 3F11.3) 

I F C NNN ( 2 ) - 1 ) 172,172,176 

172 IF ( NNN ( 3 ) -1 ) 173,173,174 

173 NT = 1 
ICASE * 1 
GO TO 999 

174 SSE ( 3 ) = SSIGMA ( 3 ) /SQrT ( FLOAT l NIMN < 3 ) ) ) 

PR1NT3010,NUM(3) t SSMpAN(3>« SSIGMA ( 3) , SSE(3) 

NT = 2 

ICASE = 4 
NN=NN-NNN< 2) 


C 

GO TO 180 

C CHANGE THIS LATER 

C 

176 SSE (2) = SSIGMA ( 2 ) /SORT ( FLOAT ( NNN ( 2 ) ) ) 
PRINT3020,NNN< 2 ) , SSmeAN<2), SSIGMA<2>, SSE I 2 ) 

3020 FuRMAT(4H0lN «I6«3F11.3> 

IF (NNN ( 3) -1) 177* 177,1 78 

177 NT = 2 

IC ASF = 2 
NN=NN-NNN(3> 


GO TO 180 

178 SSE ( 3 ) = SSIGMA < 3) /SORT I FLOAT < NNN ( 3 > ) > 

PR I NT 30 1 0 , NNN { 3 ) , SSMeAN(3)« SSIGMA<3>, SSE<3> 
3010 FORMAT (5H0P0ST 1 1 5 « 3F1 1 .3) 

NT = 3 
ICASE = 3 
180 CONTINUE 

SE = S1GMA/SQRT(FL0AT<NN> ) 

PRINT 3030, NN, SMEAN, SIGMlA, SE 
3030 FORMAT ( 4H , 10 ( 4H---- ) /4H SUM , 16* 3F11 . 3> 


C 

C GET RID OF NEGATIVE VALUES 

C I RANGES OVER ALL POINTS. 

C J RANGES OVER VALID POINTS. 

C 


J = 1 

DO 330 I=l,NOSLTS 
I F ( X ( I ) ) 310,330,320 
310 IFIX(I) + 2.0) 330*315,330 
315 X(J) = 0.0 
GO TO 321 

320 X(U) = X(I) 

321 XOUT ( J > =MDATE ( I ) 


STAT 

STAT 

STAT 

sta| 

STAT 

STAT 

STAT 

STAT 

DEC10 

STAT 

STAT 

DEC 10 

STAT 

STAT 

STAT 

STAT 

DEC 10 

DEC 10 

STAT 

STAT 

DEC10 

STAT 

STAT 

STAT 

STAT 

FIX2 

STAT 

DEC10 

STAT 

STaA 

STAF 

STAT 

STAT 

DEC10 

STAT 

STAT 

F 1X2 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT . 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

STA T 

STA' 

staj 

st4 

STA' 

ANAC1 

STAT 

anaci 



330 


605 


322 


J = J + 1 
CONTINUE 

SET FLAG FOR ANACOVA 
IF(LMAN(1) .EG.l) IANC=1 

IF(ICASE.EG.2.0R.ICASF.EQ,3) GO TO 322 
PRINT 605 

FORMAT <* MISSING INFLIGHT L>ATA - NO ANACOVA POSSIBLE*) 

IANC=0 
GO TO 716 

C PICK INFLIGHT DATA ONLY INTO CHEM AND TIME 

C X IS CHANGED HERE AND LATER 

IF < LMAN ( 1 ) *EQ« 1 ) LOBSrO 
I=NNN< 1 )+l 
J=NNN< 1 ) +NNIvi ( 2 ) 

DO 714 K = I*J 
LOBS=L.OBS+l 
CHEM (LOBS ) =X ( K ) 

TIME(LOBS)=XOUT(K) 

CONTINUE 

NOB ( LMAN ( 1 ) ) =NNN ( 2 > 

CONTINUE 

IF( 1CASE.E0.4) 710«71i 
IF ( NNN C 2 ) . EO . 1 ) GO TO 712 
GO TO 713 
NNN1 =NNN ( 1 ) +1 
NSLTM1=J-1 

DO 179 I=MNNl i NSLTM1 
X( 1 )=X ( 1+1) 

NNN(2)=NNN<3) 

NNN ( 3 ) =0 
CONTINUE 

CALL ACKUAN ( X * NT* NNf\1* TM* WTV* S« GM* NDF * IEh) 

N1 = NDF ( 1 ) 

N2 = NDF (2) 

51 = S(l) 

52 = S<2) 

CALL FF0UT(S1*S2»N1»N2, FVAL* PRFVAL) 

DO 193 IMS=1*3 
XMS(IMS) = S < IMS ) /NDF ( IMS ) 

PRINT 3090 
FORMAT ( IX ) 

PRINT 3100 

FORMAT (28H0ANALYSIS OF VARIANCE TABLE, /35H0 OF 

X MS F /35H > 

PRINT 3200* NDF ( 1 ) « S(lJ* XMSC1)* FVAL 
F0RMAT<6H TREAT* 14* FlO.l* F10.1* F8.3) 

PRINT 3300* NDf ( 2 ) * S(2>* XMS(2) 

FORMAT (6HOERROR * 14* FlO.l* FlO.l* 6H /4H ---» 

PRINT 3400* NDF < 3 ) * S(3). XMS(3) 

FORMAT < 6H TOTAL* 14* FlO.l* FlO.l* 6H ) 

PRINT 3800. FVAL* PRFVAL 

FORMAT ( 1H0 * F7 . 3 * 23H IS SIGNIFICANT AT I HE *F5.1* 14H PLRCENT 
1EL ) 

IFCNT-2) 999.650.824 
IF (PRFVaL - 5.0) 625.825,850 
N1 = 1 
PRINT 3500 

FORMAT ( 14HOCONTRAST F ) 

P(l) = 1 

P ( 2 ) = -1 - 195 - 


714 


716 


710 

712 


179 

713 

711 


193 

3090 

3100 


3200 
330 0 
3400 
3800 


824 

825 

3500 


SS 


5<4H ) ) 


STAT 

STAT 

ANACl 

anaci 

ANACl 
ANACI 
ANACl 
ANACI 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
ANACl 
FIX 
FIX 
FIX 
FIX 
FIX 
, F IX 
FIX 
FIX 
FIX 
FIX 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 
LEVSTAT 
STAT 
DEC10 
STAT 
STAT 
STAT 
STAT 
STAT 
STAT 



P ( 3 )=0 

CALL ACTRST (TW. NNN, 3, 1, Pi l'« Q « SO > 

CALL FFOUT(SQ.S2,Nl,N2,FVAL»PRFVAL ) 

PRINT 3600* IP2 ( 1 ) .FVAL.PRFVAL 

3600 FORMAT ( 1H0 , A8. F8. 3, 23H IS SIGNIFICANT AT THE iF5.1« 
X15H PERCENT LEVEL.) 

P(l> = 0 
P ( 2 ) = 1 
P ( 3 ) = -1 

CALL ACTrST(TM. NNN. 3, 1» P* 1» Q* SQ > 

CALL FF0UT(SQ,S2.N1,N2,FVAL*PRFVAL > 

PRINT 3600, IP2<2) .FVAL.PRFVAL 
P(l) = 1 
P ( 2 ) = 0 

CALL ACTRST ( TM , NNN, 3» 1« P' 1» SO) 

CALL FFOUT ( SQt S2 » N1 « N2 t FVAL « PKFVAL ) 

PRINT 3faOO.IP2(3) .FVAl .PRFVAL 

850 CONTINUE 

851 NP = 0 

DO 855 1 = 1 ♦ NT 
NCUC = NNN(I) 

DO 855 J= 1 i NCDC 
NP = NP + 1 ‘ 

855 ID2IMP) = I 

IF l ICASE.EQ.4 ) Go To AGO 


4000 FORMAT ( 1N0/20 ( 4H -J/27H NON-PARAmETR IC STATISTICS.) 

C CA*-L KRUSWaL { X . IC1 1 I D2 • NP 1 0 , 0 . NT * NNN . LK ) 

CALL KRUSWAL ( X i ID i , IDj> , NP , 0 » 1 , NT , NNN.LK , LK ) 

PRINT 1100,IP2<1> 

1100 FORMAT ( IHO/IOHOConTRAST , A8 ) 

NP = NNN ( 1 ) + NNN ( 2 ) 

C CALL KKUSWAL(X.IDl«lD2*NP* t) <0. 2 « NNN* LK ) 


IP 1=2 

CALL KRUSWAL (X»lDl»lD?,NP,0il , 2 »NNN i LK » IP I ) 

IF l ICASE.EQ.2) Go TO 998 
NP = NNN (2) + NNN(3> 

1 ST = NNN(l) + 1 
PRINT 1100. Ip2 ( 2 ) 

C CALL KRUSWAL (X { 1ST ) . I Cl ( 1ST ) , 1 02 < 1ST ) .Np. 0. 0.2* NNN (2 ) .LK) 

IP I =3 

CALL KRUSWAL ( X ( I$T > ♦ IDI HST > » ID2 ( IsT) . NP ,0,1.2, NNN ( 2 ) . LK » IPI ) 
NCDC = NNN ( 3 ) 

DO 880 J=1 . NCDC 
K = NNN ( 1 ) + J 
L=NNN< 1 ) +NNN ( 2 ) + J 
X ( K ) = X ( L ) 

IDKK) = IDUL) 

880 102(H) = IC2(L) 

NP=NNN(1)+NMN(3) 

NNN ( 2 ) =NNN ( 3 ) 

C CALL KRUSWAL<X.IDl.lD2*NP.0t0, 2 «NNN«LK ) 

860 PRINT 1100 , Ip2 ( 3 ) 


IPI=3 


IF ( ICASE.EQ.4 ) IPI=2 

CALL KRUSWAL < X « iDl ♦ ID? . NP . 0 * 1 . 2 . NNN . LK ♦ IP I > 
998 CONTINUE 

IF(LMANd) .LT.3.0K.IAMC.NE1.1) GO TO 999 


PRINT 1000 . JOB ( 3 ) 

PRINT 604 « LSTUOY ( 1 ) iKSTUDY . IUORO.LTEST ( 1 ) . KTEST »L TYPE ( 1) 


- 196 - 


F IX 

STAT 

STAT 

Fixj 

FIX^ 

STAT 

STAT 

STAT 

STAT 

STAT 

STAT 

FIX 

STAT 

STAT 

STAT 

STAT 

FIX 

STAT 

STAT 

stai 

STA1 

STAT 

STAI 

stai 

DEC) 

STAI 

stai 

stai 

FIXJ 

ST/| 

ST A* 
stai 
stai 

F 1X2 

F 1X2 

FIX 

STAT 

STAT 

STAT 

STAT 

FIX2 

F 1X2 

STAT 

STAT 

STAT. 

FIX 

STAT 

STAT 

STAT 

FIX 

FIX 

STAT 

decio 

FIX2 

FD"’ 

Fl( 

FIX 

ANAC1 

ANAC1 

ANAC1 



604 FORMAT ( 7H0STUDY «I2i2X*Afl,2X»A10*2Xt5HTEST » I 3 , 2Y , A8 , 2X , 5HT YPE , ANACl 
2X3,* I4IF LIGHT DATA FOR ANACOVA*) Af\i AC 1 

PRINT 602 ANACl 

K=0 ANACl 

' DO 73 5 L = 1 ♦ 3 ANACl 

J-K+l ANACl 

K=K+NOB<L> ANACl 

PRINT 602 ANACl 

602 FORMAT (1H ) ANACl 

h=o nr-JACi 

DO 717 l=J,K ANACl 

MsM+l ANACl 

717 PRINT 60l«P1«CHFH(I)*TIhE(l) ANACl 

715 CONTINUE ANACl 

601 FORMAT ( 1 4 t FI 2 . 4 * F5 . 0 ) ANAC1 

NT=3 AN AC 1 

IUPI =2 - AN AC 1 

CALL ANACOVA ( CHEN , T I ME , LCDS » NT , (MOB » TREAT , SL, ♦ SS , X|“ SC , F , PROBF , ANACl 

2 IOPT,XM,YMiSXX.SyY,SXY*RL)FC) ANACl 

IF < IOPT.LT .0) PRINT 603 ANACl 

603 FORMAT to) ANACOWA ERRCR***********un ANACl 

j = l aijaci 

K=0 ANACl 

DO 719 LAS=1,3 ANACl 

K=K+NOB ( LAS ) ANACl 

L=0 ANACl 

DC 718 I=J,K ANACl 

L=L+1 ANACl 

ZCH ( 2 » L ) =0. ANACl 

ZCHdtL)=CHEM(I >-( YM(LAS)+SL(LAS>*( TIME( I )-XM(LAS > ) > ANACl 

CHEM(I)=ZCH(1,L) ANACl 

WORK ( 1 « L ) -0 • ANACl 

WORK(2iL)=0. ANACl 

718 CONTINUE ANACl 

CALL LAGCOR(NOB(LAS) »CHEH( J> ♦NOB(LAS) ,CHEM J) ,C,] ,28) ANACl 

PRINT 610, LAS • AlMACl 

610 FORMAT ( * 0 MAN* ,13,* IAG CORRELATIONS*/*!] SEN C-VALUE*) ANACl 

PRINT 611, II.CII) tl=l, 28) ANACl 

611 FORMAT ( Ib,Gl5«b) ANACl 

N=NOB(LAS) ANACl 

CALL F OURG (ZCH, Nt-lt WORK) ANACl 

UO 723 IsltN ANACl 

WORK(l. I)=ZChU«I)**2 + 7Ch< 2«I)**2 ANACl 

723 W0RK(2,I)=ATAN2(ZCH(2,I) ,ZCH(1,I j) ANACl 

PRINT 602 ANACl 

PRINT 607 ANACl 

607 FORMAT (lhO*Tl8»*FAST FOURIER TRANSF ORf'iS*/* SEO O^EGA*, ANACl 

1 6X , aiREAL IMAGINARY R**2 + I**2 ARCTAN ( I/R ) a ) ANACl 

DO 720 M=1*N ANACl 

QNM=FLOAT(N)/FLOAT (M-l ) ANACl 

IF(M.EQ.l) QNK=0. ANACl 

PRINT 606, H, QNM«ZCH< 1 , M ) »ZCH ( 2,M) , WORK ( 1 ,M) * WORK ( 2,M) ANACl 

720 CONTINUE ANACl 

606 F0RMAT(1X» I3,F6.2,4G15.6) ANACl 

J= K +1 ANACl 

719 CONTINUE ANACl 

999 PRINT 1000, JOB ( 3 ) DEClo 

RETURN DEC10 

200 FORMAT ( 10X»Fl2.4,2X,2Al ) STAT 

300 FORMAT { 13H0GRAND MEAN =*F10«3* 8H SD , F 1 0 . 3 , 7H N =,131 STAT 



400 

900 


SD =,F10.3,7h 


N = » I 3// ) 


10 


140 


90 


310 

312 

315 

410 

510 


FORMAT (I10,F12.4,2X»A4.2X,A2) 

FORMAK 7H0MEAN =»F10,3» 8H 
END 

subroutine mesig< ltext ,nfirst , nlast ,sme; an, sigma ,MN ) 

DIMENSION LTEXT ( 1 ) 

NN = 0 
SUM =0.0 
SSQ = 0.0 

IF(NFIRST-NLAST) 10,10.90 
DO 140 I = NFIRST * NL AST 
NSLOT = 1 

CALL OTEST ( 1 , SUM , SSQ , NN » LTEXT ) 

CONTINUE 

IF(NN.EQ.O) GO TO 90 
SMEAN = SUM/MM 
SIGMA=0 . 

IF(NN.EQ.l) RETURN 

IF ( ( MN*SSQ“SUM*SUM) ,LE. 0. ) RETURN 
SlGhA = ( ( NN + SSQ - SU(U|*SUM)/ ( NN* ( NN - 1))>**0.5 
RETURN 
SMLAN =0.0 
SIGMA = 0-0 
RETURN 
END 

SUBROUTINE OTEST ( I « SUjmi, SSQ * N|\|» LTEXT ) 

DIMENSION LTEXTU) 

COMMON XUATA < 150 ) ,T (200 > « IOPLOT , I F F F , KOI , KSK j P , LT i LM . LSTOP 
DATA I Z/4H0 ♦ 00 / » ISS/4HSKIP/ , INV/4HINVL/ 

DATA IBLANK/4H / 

IF<XDATA(I>) 310,410,510 
IXT = -XDATA(I) + 0.5 
IF(IXT - 2) 315,312,315 
LTEXT(I) = 1Z 
NN = NN + 1 
RETURN 

LTEXT ( I ) = ISS 

return 

LTEXT ( I ) 

RETURN 
NN = NN 
LTEXT ( I ) 

SUM = SUM 
SSQ = SSQ 
RETURN 
END 

SUBROUTINE UERTST 

RETURN 

END 

SUBROUTINE STPLOT ( LOOP , NOBST , nSLOT , I WORD , KSTUDY , KTYPE , KMAn , KTEST 
X SMEAN, SIGMA) 

COMMON XUATA (150) . T < 20 0 ) ♦ I OPLOT , IFFF , KOT . KSK IP , LT » LM , LSTOP 
COMMON/HITBLK/LHIT(150) , MDATE (150) ,IsAV (16) ,MTVOL(150> 

COMMON /HEADER/ lSTUDy(IO) , IS , lUATE ( 150 ) , I D , |_MAN ( 9 ) , IM . JOB ( 16 ) , 

. LTYPE(PO) ,ITP,LTEST(125)»ITT,NSMP,NDATA 

DIMENSION YDATE ( 200 ) , XP ( 3 ) 

COMMON/RG/ DATESC (3,5),IVV(4), SSMEAN(3>, SSIGMA(3>. NNN ( 3 ) 

real*© mstudy,mtype,mman,mtest 

REAL MSTDDY,MTYPE,MMaN,MTEST 

REAL KSTUDY, KTYPE, KMAN, KTEST, NlTS 

DIMENSION NSMAN ( 7 ) _ 19 g_ 


= INV 
+ 1 

= iblank 

+ XDATA(I) 

+ XDATA(I)*xnATA(l ) 


ST AT 
STAT 
ST 
ME 

mEsig 

mesig 

MESIG 

MESIG 

APR24 

MESIG 

MESIG 

MESIG 

MESIG 

DEC 1.0 

MESIG 

DEC10 

DEC 10 

DEClO 

MESIG 

MESIb 

MESIG 

MESIG 

MESIG 

MESIG 

OTEST 

OTEST 

XREDUC 

OTE^ T 

jam 

oteW 

otest 

OTEST 

OTEST 

OTEST 

OTEST 

otest 

OTEST 
OTEST 
OTEST 
OTEST 
OTEST 
OTEST 
OTEST 
OTEST 
OTEST 
UERTST 
UERTST 
UERTST 
.STPLOT 
STPLOT 
XREDUC 
XRtOuC 
STPLOT 
STP‘ OT 

STP^T 

STPLOT 

STPLOT 

STPLOT 

STPLOT 



o n 


EqUIVALENCE(YDATE*T) 

DATA NSMAI\l/4.9*6*0«l.p,3/ 

IF ( NOBST - 1) 911,911,1 
1 MFIRST = MDATE(l) 

DO 10 11=1, NOBST 
IF(nOATE(II) - MFIRST) 9,10*10 
9 MFIRST = MDATE (II) 

10 YDATF ( II ) = mDATE ( II ) 

J1 = NOBST + 1 

J2 = WORST + 2 

CALL SCALE(XDATA, 3 » 0 . N 0 R S T » 1 ) 

C XD ATA ( WORST + 1) = 0 . p 

IF1 XOATA ( J2 ) ) 911,911, jl 

11 IG = LSTUDY(l) 

YDATE (NOBST + 1) = DATfSCUdG) 

YDATE ( NOBST + 2) = 24.0 

UF = ( DATESC ( 2 , IG ) - nATESCUtlG) )/YDATE(WOBsT + 2 ) 
DQWN=(DATESC(3,IG) - DATESCd, IG) )/YDATE(WOBST + 2) 
xp(i) = o.i 

XP ( 2 > = 0.1+ UP 
XP<3) = 0.1+ DOWN 
NT I C = 3 

CALL TEXT ( LSTUD Y ( 1 ) * LTYPEU), LMAM1), LTEST(l), 

X KSTUDY, KTYPE. KM AN, K'TEST* nITS) 

KS = KSKlP - KSK lP/3*3 

IF(KS) 2 oa»ioe, 2 oe 

C 106 CALL PLOT (4. 25, 10. 5,-3) 

106 CALL PLOT (8. 50, 10. 5, -3) 

FPN = LTYPEd) 

CALL SYMBOH0. 30*-. 4*0. 10, KSTUDY , 0.0, 6) 

CALL SYMBOL (1.20, -.4*0.10, KTEST , 0.0, 6) 

CALL SYMBOL<2.GO,-.4,0.10,4HTYPE, 0.0, 4) 

CALL NUMBER <2.40,-.4»0.10*FPN»0.0»-l) 

CALL SYMBOL ( 2.60,- . 4, 0 .10 , IWORD, 0 . 0 * 10 ) 

206 CALL PLOT(0.0*-3.5*-3) 

CALL AXIS(0. 0,0.0, 12H JULIAN DATE, 

1 -12, 4.0, 00 .0, YDAT[( J1 ) , YDATE ( J2 ) ,-l ,4 ,3 ) 

CALL AXIS <X,Y,RCDtNC , SIZE, THETA. YhlNtDY.NDLC i NLA£>»NT1C) 

CALL AXIS ( 0 . 0 , 0 . 0 ,16H CAIA \/ ALUE , 16 , 3 • 0 , 90.0, Y (-J1 ) . Y ( J2 > ) 

CALL AXIS<0, 0,0.0, NITS * 6,3.0, 90,0, XDATA(Jl), 

1 XDATA(J2), -1, 4, 1) 

FPN = LMAN(l) 

CALL SYMBOL (0.10, 3.01,0* 07, KFiAN, 0.0, 3) 

DO 306 JJ=1,3 
KG = 4 - JJ 

CALL NUMBER (XP (KG > , 2.69, 0.07, SSME AN ( KG ) ♦ 0,0, 2) 

308 CALL NUMBER ( XP ( KG ) , 2.77, 0.07, SS I GMA < KG ) , 0,0, p) 

CALL PLOT ( UP ,0.0,3) 

CALL PLOT (UP, 3. 0,2) 

CALL PLOT (DOWN,3.0*3) 

CALL PLOTtDOWN, 0.0*2) 

706 LL = MSMAN ( LMAN ( 1 ) ) 

CALL LINE(YDATE,XDATA,riORST*l, 0,LL) 

811 CONTINUE 

KSK Ip = KSK Ip + l 
911 RETURN 
END 

SUBROUTINE TEXT ( LSTUD Y * LTYPE , LMAN , L TEST *N STUDY , NTl PE , NrlAN , NTEST , 

1 NITS) 

C REAl*8 KSTUDY*MSTUDY(6) ♦ KTEST , MURN (124 ) ,MBL0(24) ,MITS(124) , 
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stplct 

stplot 

STPLOT 

STPLOT 

stplot 

stplot 

STPLOT 

stplot 

STPLOT 

stplot 

stplot 

STPLOT 

stplot 

STPLOT 

stplot 

stplot 

stplot 

stplot 

stplot 

STPLOT 

stplot 

stplot 

stpluT 

stplot 

stplot 

.stplot 

stplot 

stpluT 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

STPLOT 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

stplot 

STpLoT 

stplot 

stplot 

TEXT 

TEXT 

TEXT 



RL/\L KbTlJUY.MSTUDY(B) , R TEST , HURN < 124 ) .MDLU< 24 > ,MTS< 124 > . 

TEXT 

1 I“IITSP < 24 )i 

KTYPE * M 7 YPE ( 15 ) 1 MM, KITS 



TEXT 

RE. AL H STUDY i NTYPE » OMAN, UTtST. 

KMAN« MHAN( 9 )t fviITS 


TEXA 

DATA MSTUDY/SHShEAT 

, BUSK YLAB 

2i8hskylab 

3 , 8HSK YL Afi 

4 1 8 HAP 0 LL 01 f T 

1 / 






TEXT 

DATA MMAh/ 4 hCDR ,AHPLT . 4 HSPT i 4 HCl i 4 HC 2 

, 4 HC 3 1 4 HC 4 , 

TEXT 

X 4 HC 5 i 4 HCb / 





TEXT 

DATA <MUKi\l( I ) »I = li 107 ) 




TEXT 

x 

/SHE PI 

, pHMOREPl 

iflHADH 

i 8 HHYr.K 0 

, 8 HALD 0 

1 1 EXT 

X 8 H 170 H 

, BHOSMO 

, OH HA 

« 81 IK 

, 8HMG 

, 8 HP 04 

.TEXT • 

X8HC A 

10HCL 

, OHP 

, OHSP.GK. 

iBHLKE AT 

1 QHI.IR ICACID 

, TEXT 

X8HB 

, 8HS1 

, 0-HF F 

, 0 HAL 

1 0 HHO 

,8HCU 

♦ TEXT 

X8H2fJ 

1 UHT 1 

, OH HI 

» 8HSR 

1 OHCR 

, OhBL 

, TEXT - 

XtiHMN 

18HLI 

, OH KB 

,8HPU 

1 8HAND 

, 8hET 1 0 

, TEXT 

X8HUHEA 

, 8 H 1 1=0 AMI),AH 11 = OLTIO 

, OH 11 OH AlVDi OH 1 10 hf T IG 

tOHTOTAL 

, TEXT 

X8E.LYS 

18HHIS 

, OHHH 3 

tSHARG 

1 8HHYP 

, 8HASP 

, T E X T 

X8HTHR 

, 8HSE.K 

, OHGI.U 

. 8 HPR 0 

1 8HGLY 

, BEiAL a 

, TEXT 

X 8 HCYS /2 

18HVAL 

, pHMET 

,811 ILF. 

1 8HLK.I; 

iBEiTYK 

1 TEXT 

X8HPHL 

,8HHLYS 

, OHGAMMA-AB 

, SHORN 

18HETH 

« 8 HNH 3 

♦ TEXT 

X8HLYS 

♦ 8 H 1 -CH 3 HIS, 8HHIS 

18 H 3 -CH 3 HIS 

1 shahs 

, 0 HTRY 

, TEXT 

X 6 HCKE 1 

1 8HCAK 

, pHARG 

,8HPSER 

» BMP t TIM 

, 8HTYR 

.TEXT 

X8HUKE.A 

18HHYP 

,OHASP 

18HTHR 

18HSER 

,OHASP NH 2 

.TEXT 

X 8HGLU NW 2 

, 8I-1SAR 

, 8 HPR 0 

, 8HGLU 

♦ 8HC 1 T 

, 8HGLC NH 2 

.TEXT 

X8H8LY 

, OH ALA 

, PHALPUA-AA 

,8hALPHA-AB 

. 8HV/.L 

18HCYS/2 

, T E X T 

X8UCYT 

ioHME T 

, THILL 

1 6HLEU 

i8HTY> 

♦8hPhE 

.TEXT 

X8HB-ALA 

.ttHB-AIfc 

,AH 5 HIAA 

♦ Oh 

1 8H 

1 8H 

/JAW 25 

DATA 

j( I ) 1 1 = 1 C 8 » 

1?A >/ 




•TE-XT 

X8H 

,8H 

1 8H 

i&h 

1 8H 

,8h 

.TEXT 

X8H 

18H 

tfHCALOMCS 

. 6 HPR 0 TE 1 N 

18HDIF 1 CA 

, 8HDIET P 

,TE)| 

X8HDIET NA 

irtHDILT MG 

♦lhdilt k 

, 8 H 0 IET H 20 

18HU-EIGHT 

/ 

TE^ 

DATA MBLL 

/ 8 HHYDR 0 

• 8 HALD 0 

, 8HHGH 

, 8HAU.GIO 

.OH INSULIN 

iTE-XT 

X8HT 4 

♦8HACTH 

, OH A OH 

, 8HPTH 

16HCAL 

, 8HV I T • D • 

.TEXT 

XSHTSh 

, 8 H 0 SH 0 

, OHM 

, &HK 

1 8HMG 

, 8 hP 04 

.TEXT 

X8HCA 

1 0 HCL 

1OHGLU 

18HTP 

16HTES 1 os 

1 8(i 

1 JAM 25 

X8H 

/ 





TEXT 

DATA ( MITS( I ) i 1=1 i 107 ) 




TEXT 

X 

/8HUG/TV 

, OHUg/TV 

1 6HMU/TV 

18HUG/ 1 V 

i8HUg/TV 

.TEXT 

X0HIWTV 

, 8 HM 0 SM/TV 

, AHP-T-U/TV 

♦ 8 HI 1 CQ/TV/ 

, 8HMfh/TV 

t 8HMG/TV 

.text 

xshmlo/tv 

, 8HMEQ/TV 

, 8 HML 0 

18H 

18HMG/TV 

, 8HMG/TV 

,text 

X6HUG/ML 

t 8HUG/ML 

,OHUG/ML 

1 8HUG/ML 

1 8HUG/ML 

, QHUG/ML 

.TEXT 

X8HUG/ML 

, 8HUG/ML 

,PHUG/Ml 

, 8HUG/ML 

, 8hUG/( v iL 

, 8HUG/ML 

.TEXT 

xshug/ml 

♦8 HUG/ ML 

, ohug/ml 

.8HHG/TV 

18HMG/TV 

, qhmg/tv 

.TEXT 

X6HMD/TV 

1 ©HKG/TV 

, PHMG/TV 

t 8HMG/TV 

t 8 HMG /1 V 

, 8HTMG/TV 

.TEXT 

X8HMb/TV 

1 8HMG/TV 

, BHMKG/TV 

, BHMG/TV 

18HMG/TV 

,8HMG/TV 

.TEXT 

X8HMG/TV 

, 8HM6/TV 

,0HMG/Tv 

, BHMG/TV 

1 fiHMG/TV 

, 8HMG/TV 

.TEXT 

X8HMG/TV 

1 8HMG/TV 

,ohrg/tv 

, 8HHG/TV 

18HMG/TV 

,8HMG/rV 

.TEXT 

X8HMG/TV 

» 8HMG/TV 

iOHMG/TV 

, 8HMG/TV 

18HM&/TV 

,8HMMG/TV 

.TEXT 

X8HPG/TV 

1 OHMG/TV 

, 0 HMG/ 1 V 

, 8HHG/TV 

i8HMG/l V 

, 8HMG/TV 

.TEXT- 

X6HM&/TV 

18HMG/TV 

« RHI 1, 6/ tv 

, bhhg/t V 

1 8 HMG/ 1 V 

, bhmg/tv 

1 TEXT 

X8HMMG/TV 

18HMG/TV 

, AHMg/TV 

, 8HMG/TV 

1 8HM&/TV 

18HMG/TV 

. T£XT 

X8HMG/T V 

18HM&/TV 

.OHMG/Tv 

.8HHG/TV 

. 8HMG/TV 

, 8HMG/TV 

,T£XT 

xshhg/tv 

, ohmg/tv 

,8HMG/ t V 

, 8HNG/TV 

1 8HMG/1 V 

,8HMG/TV 

,T£XT 

XBMMG/TV 

18HPG/TV 

♦8HMG/TV 

t 8HMG/T V 

1 SHMg/TV 

1 8HMG/TV 

.TEXT 

X6HMG/TV 

18HMG/TV 

,OHMG/T\/ 

18H 

18H 

18H 

/JAN 25 

DATA <MITS( I) tl=l 08 i 

1 ? 4 )/ 





X8H 

18H 

1 PH 

,8H 

18H 

18H 

,te" 

X8H 

, 8H 

, PHKCAL 

, 8HGRAMS 

1 6HMG 

18HMG 

1 TEX * 

X8HMG 

,8HM& 

,8HMG 

1 8HML 

tSHLbS. 

/ 

TEXT 

DATA P 1 TSB/ 8 HUG/I 0 0 m. ,8HPG/ML 

, 8HNG/ML 

1 8HMUg/ML/Hi 8HUU/ML 

.TEXT 

X8HUG/IOOML18H 

.pH 

1 8HPG/ML 

18HPG/HL 

, 8HNG/ML 

.TEXT 
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X8H , 8HM0SM/L , 8HNEQ/L , 8HNEQ/L 

, 8HMG PC , 8HMG PC 

, JAN25 

X8HMG PC ,8HMG PC , 8HMG PC » 8HMG PC 

, 8HUG/TV ,8H 

, JAN25 

X8H / 


TEXT 

NSTUDY = MSTUDY(LSTUDY) 


TEXT 

nman = MMAN(LMAN) 


TEXT 

IF(LTeST - 400) 10,20,20 


TEXT 

KTEST = MBLD ( LTEST - 299) 


TEXT 

KITS = MITSB < LTEST-299 ) 


TEXT 

GO TO 30 


TEXT 

KTEST = MURN (LTEST - 399) 


TEXT 

KITS = MlTS(LTEST-399) 


TEXT 

NTEST = KTEST 


text 

NITS = KITS 


TEXT 

RETURN 


TEXT 

END 


TEXT 

SUBROUTINE KRUSWAL (XlN, IDI, ID2IN»N,NCEN,J0P»K*NU,NC» IP2) 

SETWRK 


IN CASE OF TWO-SAMPLE, IF THE SAMPLE SIZES ARE DIFFERENT , IT IS 
SUGGESTED TO NAME THE ONE with LESS OBSERVATIONS SAMPLE 1. 

CALL NKRUSWAL ( X , ID! , ID2 , NALL , NC , JOP , NCOND , NUNCEN , NCEN ) 


X(I)i I-l» NALL 
ID1 ( I ) =1 
= 0 

ID2( I )=J 

NALL 

NC 

JOP=l 
= 0 
NCOND 
NUNCEN ( I) 
NCEN ( I > 


THIS PROGRAM CALCULATES A GENERALIZED KRUSKAL-WALLIS K-SAMPLE KRUSWAL 
TEST. WHEN K = 2, THE TEST IS Equal to GEHANalS generalized wilcoxon kruswal 
TEST. CALCULATIONS FOLLOW THE PROCEDURES GIVEN BY MANTEL l BI OMETR ICKRUSWAL 
MARCH 1967) KRUSWAL 

kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 

KRUSWAL 

kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 
kruswal 

SETWRK 
KRUSWAL 

kruswal 
kruswal 
kruswal 
kruswal 
kruswal 

SETWRK 
SETWRK 
SETWRK 
SETWRK 
SETWRK 
KRUSWAL 
KRUSWAL 
KRUSWAL 
KRUSWAL 
KRUSWAL 

rank from LEFT TO RIGHT, OMITTING RIGHT CENSOREOkRUSWAL 
VALUES. ASSIGN NEXT HIGHER RANK TO RIGHT KRUSWAL 

censored values kruswal 

kruswal 
kruswal 
kruswal 


ARRAY CONTAINING all OBS IN THE SAMPLES 
ITH OBS IS UNCENSORED 
ITH OBS IS CENSORED 
ITH oBS IS FROM JTH SAMPLE 
TOTAL NO OF OBS 
TOTAL NO OF CENSORED OBS 
PRINT INFO 
DO NOT PRINT 
NO OF SAMPLES 

NO OF UNCENSORED OBS IN SAMPLE I 
NO OF CENSORED OBS IN SAMPLE I 
DIMENSION XIN(l) ,ID1(1) ,ID2lN(l> »NU(6> »NC(6) ,XY(l20) ,102(120) 
DIMENSION Rl( 600), R2( 600) 


MAXIMUM NO. OF SAMPLES = 6. 

TOTAL NUMBER OF OBSERVATIONS ALLOWED = 600. 
K = NO*- OF SAMPLES 

MOVE INCOMMING ARRAYS TO WORK ARRAYS 
DO 10 1=1, N 
X Y ( I ) = X I N ( I > 

ID2( I )=ID2IN( I ) 

10 CONTINUE 

ORDER OBS. IN ASCENDING ORDER 

CALL S0RT2(XY,N,ID1,ID2) 

COMPUTATION OF R1 
STEPS 1 AND 2 : 


IRANK=0 
DO 901=1, N 

IF (IDKI).EQ.O) GO TO 101 
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kruswal 



non non noon noon noon 


101 

go 

12 
11 

13 

14 
22 

21 

23 

24 

501 

25 


j.rank=irank+i 

R1 < I ) = IRANK 
GO TO 90 
Rl < I ) = IRANK+1 
CONTINUE 

STEP 3 : REDUCE THF RANK OF TIED 
RANK FOR THE VALUE 

K1=N-1 
Ll = l 

IF ( XY (LI ) .NE.XY (Ll+l ) ) GO TO 11 
JEMP=ID1 (LI )*ID1 (Ll+1) 

IF ( JEMP .EG. 0) GO TO 11 
R1(L1+1)=R1(L1) 

IF (L1.EG.K1) GO TO 13 

L1=L1+1 

GO TO 12 

IF (L1.EQ.K1) GO TO 13 
L1=L1+1 

GO TO 12 
CONTINUE 

COMPUTATION OF R2 

step i : rank from right to left 

DO 14 1=1, N 
R2 ( I ) =l\t- 1 + 1 

STEP 2 : REDUCE THE RANK Op TIED 
FOR THE VALUE 

L1=N 

IF <XY(L1> .NE.XY(Ll-l) > GO TO 2l 
JEMP=ID1 (LI )*ID1 (Ll-1 ) 

IF (JEMP .EG. 0> GO To 21 
R2(L1-1)=R2(L1) 

IF (LI. EG. 2) GO TO 23 

L1=L1-1 

GO TO 22 

IF (LI. EG. 2) GO TO 23 
L 1 =L 1 - 1 
GO TO 22 
CONTINUE 

STEP 3 J REOUCE THE RANK OF RIGHT 

IF ( NCEN ,EO. 0) GO TO 501 
DO 24 1 = 1 .N 

IF (ID1UI .EG. 1) GO T 0 24 
R2( I)=l. 

CONTINUE 

COMPUTE FINAL SCORES -Rid) 

CONTINUE 
v DO 25 1=1. N 
Rl ( I ) =R1 ( I ) -R2 ( I ) 

IF(JOP.NE.l) GO TO 37 

PRINT 30 on-) 


kruswal 

kruswal 

kruswali 

kruswal 

kruswal 

kruswal 

OBSERVATIONS '(O THE LOWEST KRUSWAL 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

KRUSWAL 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 

KRUSWAL 

KRUSWAL 

kruswal 

kruswal 

KRUSWAL 

KRUSWAL 1 

OBSERVATIONS to THE LOWEST RANKKRUsWAL 

KRuSwAL 

KRUSWAL 

kruswal 

kruswal 

KRUSWAL 

KRUSWAL 

kruswal 

kruswal 

KRUSWAL 

KRUSWAL 

KRUSWAL 

kruswal 

kruswal 

kruswal 

kruswal 

CENSORED OBSERVATIONS to UnITYkRUSWAL 

kruswal 

kruswal 

kruswal 

KRUSwAL 

kruswal 

kruswal 

kruswal 

KRUSWALj 

kruswal! 

kruswal 

kruswal 

kruswal 

kruswal 

kruswal 



30 

FORMAT ( lH0.8X»aia»8X«aOBSERVATIONSa«8X ,alSAMPLEa«6X.aSC0RESa) 

KRUSWAL 


DO 31 1 = 1, N 

KRUSWAL 


IF (IDKD.EQ.O) 60 To 34 

KRUSwAL 


PRINT 33. I.XY(I).ID2(I)»RKI) 

kruswal 


&0 TO 31 

KRUSwAL 

34 

PRINT 35. I»XY(l).ID2(I)tRl(I) 

kruswal 

33 

FORMAT ( 1H »6X.I3.7X.Ffl.l»15X.I2.12X.F6.0) 

kruswal 

35 

FORMAT (1H .6X.I3.7X,F8.1*1H+»14X»I2.12X.F6,U) 

kruswal 

31 

CONTINUE 

kruswal 

37 

PRINT 36 

kruswal 

36 

FORMAT ( 1H0 > 

kruswal 


IF (K.GT.2) GO TO 200 

KRUSWAL 


CALL TWOSPL ( R 1 ♦ 1 0 2 * M . I' Ll » NC . IP2 ) 

FIX2 


GO TO 1000 

kruswal 

200 

CALL AKSPL(K.N»R1«NU«MCiID2> 

kruswal 

1000 

CONTINUE 

kruswal 


RETURN 

kruswal 


END 

kruswal 


SUBROUTINE SORT2 (X *N « ID* 1C ) 

SORT2 


DIMENSION X ( 1 ) . ID < 1 ) . IC < 1 ) 

SORT2 


DO 1 1=1, N 

SORT2 


J=N-I+1 

S0RT2 


JJ=J-1 

S0RT2 


IF (JJ ,LT. 1 )G0 TO 1 

- SORT 2 


DO 2 K=1,JJ 

S0RT2 


IF ( X ( K ) • NE • X ( J ) ) GO TO 3 

S0RT2 


IF (ID(K)-ID(J)) 4,2,2 

SORT 2 

3 

IF ( X C K ) .LT. X<J) > GO TO 2 

SORT2 

4 

X1=X ( J ) 

SORT2 


ITEM=IO< J) 

SORT 2 


ICTE=IC( J) 

SORT 2 

9 

X<U)=X(K> 

S0RT2 


ID ( J ) =ID ( K ) 

S0RT2 


IC < J ) =IC < K ) 

S0RT2 


X ( K ) = X 1 

SORT 2 


ID < K ) = ITEM 

SORT 2 


IC<K)=ICTE 

S0RT2 

2 

CONTINUE 

SORT2 

1 

CONTINUE 

S0RT2 


RETURN 

SORT 2 


END 

SORT2 


SUBROUTINE TWOSPL <R1 , ID2 ♦ N , NU , NC , I P2 ) 

F 1X2 


DIMENSION ID2U) tRl(l) ,NU( 1 ) .NC(l) 

TWOSPL 

C - 

DATA ONE , TWO/aONES , STWOB/ 

TWOSPL 

• 

data one/iohone / 

TWOSPL 


DATA TWO/IOHTWO / 

TWOSPL 


ww=o. 

TWOSPL 


DO 26 1=1, N 

TWOSPL 


IF( ID2 ( I ) ,EO, IP2 ) GO TO 26 

FIX2 


WW=WW+RKI) 

TWOSPL 

26 

CONTINUE 

TWOSPL 


SUM=0. 

TWOSPL 


DO 27 1=1, N 

TWOSPL 

27 

SUM=SUM+R1(I)**2 

TWOSPL 


XNl=NU(l )+NC(l) 

TWOSPL 

- > - .. .. 

XN2=NU ( 2 ) +NC < 2 ) 

TWOSPL 


XN=N 

TWOSPL 


VAR=XN1*XN2*SUM/ <XN* <XN-1. ) > 

TWOSPL 


VAR=SQRT(VAR) 

TWOSPL 

C 
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TWOSPL 



non non non no 


CALCULATE CONTINUITY CORRECTION TWOSPL 

TWOSPL 

SlGNs-1. TWOSPL 

IF (WW.LT.Q.) SIGN=1. TWOSPL 

C0R=.5 TWOSPL 

IF ( FLOAT ( ( NC < 1 > +NC < 2 > ) /N ) *LT . 0.2) CORrl.U TWOSPL 

C0R=SIGN*C0R TWOSPL 

IF (WW.EQ.O.) COR=0. TWOSPL 

TWOSPL 

CALCULATE FINAL W SCORF AND PROBABILITY. TWOSPL 

TWOSPL 

WSCORE=( WW+COR)/VAR TWOSPL 

WSC=WSC0R£ TWOSPL 

IF (ABS(WSC0RE)-3.1> 305.305, 302 TWOSpL 

305 P1=100»*(1»*PROB(WSC) ) TWOSPL 

GO TO 301 TWOSPL 

302 P1=0,1 TWOSpL 

301 CONTINUE TWOSPL 

P2=P1*2. TWOSPL 

P2=AMIN1(P2.100. ) TWOSPL 

PKKgT 600 ♦ WW » VAR , WSCqRE TWOSpL 

60 0 FORMAT ( 1H0 ♦ 3X « 1HW , 7X , 8HST • DEV . ♦ 3X , 1 0HASYMPTOT IC/ 25X . 6HWSC0RE/1X . FTWOSPL 

19»0,F8»2,7X.F5*2) DEC10 

PRINT 601. WSC0RE.P2.tW 0 TWOSpL 

PRINT 601. WSC0RE.P1. ONE TWOSpL 

601 FORM a T (1X.F5.2.1X.3IS SIGNIFICANT AT THE S. F7.1.3 PERCENT LEVEL -TWOSPL 

ia»* 3 »a tailed tests) twospl 

PRINT 602 TWOSPL 

602 FORMAT ( 1H0 ) TWOSPU 

RETURN TWOSPL 

END • TWOSPL 

SUBROUTINE AksPL(K.N,P1«NU.NC.ID2) akspl 

DIMENSION Rl(l) .NU(1) ,NC(1) ,W<6) ,ID2(1) AKSPL 

AKSPL 

test statistic for mgreaTer than 2>-sample case akspl 

AKSPL 

DO 2ol 1=1. K AKSPL 

201 W ( I ) -0 • AKSPL 

DO 202 I J=1 . N AKSPl 

I=ID2(IJ) AKSPL 

202 W ( I ) =W { I ) +R1 ( I J ) AKSPL 

T=0. AKSPL 

DO 203 Ij=l»N AKSPL 

203 T=T+R 1 ( IJ ) **2 AKSPL 

6=0 . AKSPL 

PRINT 300 AKSPL 

300 FORMAT(lHO.asAMPLEa.8x.aW(I)a*lQX.aN(I>ci) ' AKSPL 

DO 204 1=1. K AKSPL 

UC=NU( I )+NC( I ) AKSPL 

PRINT 301. I.W<I).UC AKSPL 

301 FORMAT ( 1H . 3X. II . 7X .Ffl. 0 . 7X ♦ F5. 0 ) AKSPL 

204 B=B+<W<I)**2/UC) AKSPL 

PRINT 302 i B.T AKSPL 

302 FORMAT ( 1H0 . BB =a,Fl2.2.5X»aT =3,F10.0) AKSPL 

WSCORE=<B/T)*FLOAT (N-i) AKSPL 

AKSPL 

W SC ORE HAS CHI-SQUARE DISTRIBUTION WITH (Krl) D. F. AKSPL 

AKSPL 

WS=WSCORE AKSPL 

XK=K-1 _204_ AKSPL 
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NF.O) GO TO 500 


akspl 

AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 

! AKSPL 

AKSPL 
AKSPL 

SIGNIFICANT AT THE a,F5.1,a) PERCENT LEVEL3) AKSPL 

akspl 

AKSPL 

AKSPL 

SIGNIFICANT WITH PROBABILITY I-ESS THAN 3,F7.3AKSPL 

AKSPL 


XM=WS/2, 

IC-XK/2 • 

SWS=SQRT(WS) 

EM=1 ./EXP(XM) 

PRINT 205 « WSCORE 

205 FORMAT < 1H0 »3WSC0RE = a,F7.3> 

XK2=XK/2. 

IF ( <XK2-FLOAT<IC) ) 

SUM=0 » 

PROO=l. 

DO 1 1=1, IC 
IF ( I • GT « 1 ) GO TO 2 
XI = 1 
GO TO 3 

2 XI=I-1 

3 PROD=XI*PROD 
TERM=XM** ( 1-1 )/PROD 

1 SUM=SUM+TERM 
CPR08=SUM*EM 
P=100.*CPR06 

IF (P.LT.0.1000) GO TO 10 
PRINT 206 , WSCORE, P 

206 FORMAT (lH0,F7,3,a IS 
GO TO 1000 

10 P=0.10 

PRINT 12, WSCORE, P 
12 FORMAT ( 1H0 ,F7.3,a IS 
l,a PERCENT LEVEL3) 

GO TO 1000 

500 GAMh = 1.77 2453^509 

TERM=SQRT(XM)/(0,5*GAmH) 

' SUM=TERM - 

NR S ( XK-3 • ) /2 • 

IF ( NR * £9 *0 ) GO TO 502 
DO 501 1=1, NR 
XI = I 

TERM=TERM*2.*XM/(2.*Xl+l. ) 

501- - SUM=SUM+TERW - 

502 CHISQ=(SUM*EM)*100. 

P2=l 00 ♦ *2 • * ( 1 » -PR OB ( SWS ) ) 

P=P2+CHISQ 

IF (P.LT. 0.0005) GO TO 14 
PRINT 206, WSCORE, P 
- GO TO 1000 
14 P=0.001 

PRINT 12, WSCORE, P 
1000 CONTINUE 
RETURN 
END 

-FUNCTION PROB(X) 

THIS FUNCTION ROUTINE COMPUTES 

DISTRIBUTION FUNCTION(X) 

1 - DISTRIBUTION FUNCTIONS) 

OF A ST. NORMAL VARjABLE USING APPROXIMATION 
; HANDBOOK OF MATH. FUNCTIONS 

DATA D1,D2,03,D4,D5,D6/, 0498673470, .0211410061, 
10036, .0000488906, .0000053830/ 

IF <X) 20,30,40 

30 PROB=0 . 5 -205- 


I 


akspl 

AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
AKSPL 
PR O B 
PROB 
PROB 
PROB 
PROB 
PROB 
PROB 

.0032776263, .000 038PROB 

PROB 

PROB 

PROB 


IF X GE 0 
IF X LT 0 
26.2,19 P.932 
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RETURN PROB 

20 X 1= -X PROB 

GO TO 50 PROB 

40 X1=X PROB 

50 A=l.+Xl*(Dl+Xl*(D2+Xl*(D3+Xl*(D4+Xl*(D5+Xl*D6) )) ) > PROB 

PROB=1.-0.5*A**(-16) PROB 

60 CONTINUE PROB 

RETURN PROB 

END PROB 

SUBROUTINE FFOUTtSX* S2» Nit N2 » FDAT » PRB ) FF0U1 

FDAT = (Sl/Nl)/ ( S2/N2 ) FFOUI 

PRB- FISH(FDAT»N1,N2) FFOU7 

PRB = (1.0 - PRB ) * 1 0 0 . FFOIJI 

IF ( PRB - 0.1) 1»2*2 FFOU1 

1 PRB = 0.1 FFOUI 

2 RETURN FFOUT 

END FF0U1 

FUNCTION FISH ( F » Nl » N2 ) FISH 

LOGICAL El » E2 * E3 FISH 

IF(N1 .GE. 100 iAND.N2.GE. 100 > GOTO 9 FISH 

fish 

INITIALIZATION AND SETTING OF LOGICAL SWITCHES TO .TRUE. IF FISH 

THE DEGREES OF FREEDOM ARE EVEN FISH 

FISH 

El=. FALSE. FISH 

E2=. FALSE. FISH 

E3=. FALSE. FISH 

IF(M0D<N1»2) .E0.0) E1=.TRUE. fish 

IF(M0D(N2»2) .EG.O) E2=.TRUE. FISH* 

X=N2/(N2+N1*F> FISH 

IF( .MOT* (E1.0R«E2) ) Go TO 5 Fl$H 

IF(E1.AND.«N0T.E2> Go TO 1 FISH 

IF< .NOT. El. AND. E2) GO TO 2 FISH 

IF ( Nl • LE . N2 ) GO TO 1 FISH 

FlSH 

INITIALIZATION FOR SECOND DEGREE OF FREEDOM EVEN AND LE$S THAN FIsH 

FIRST DEGREE OF FREEDOM IP IT TOO Is EVEN FIsH 

FISH 

2 I=N1 FISH 

N1=N2 FISH 

N2=I FISH 

X=1.0-X FISH 

E3=.TRUE. FISH 

— — - — fish 

INITIALIZATION FOR FIRST DEGREE OF FREEDOM EVEN AND LESS THAN FIsH 

SECOND DEGREE OF FREEDOM IF IT IS EVEN FISH 

FISH 

1 Y=1 • 0-X FISH 

FISH 

calculation of probability for at least one degree of freedom evenfish 

- FISH 

FISHsO • o fish 

H=SQRT(X**N2) fish 

M-Nl/2-1 FISH 

MCDC = M + 1 FISH • 

00 3 lCDC=ltMCDC PISH 

1 = I CDC - 1 FISH 

FISH=FISH+H FISH 

3 H=(H*Y*(n 2+2.*I ) )/<2.*(I + l. ) ) FISH 

IF(E3) GO TO 4 FISH 



no o n n n 


FISH 

ADJUST CALCULATED PROBABILITY IF ITS ONES COMPLEMENT WAS FISH 

CALCULATED ORIGINALLY FlsH 

FISH 
FISH 
FISH 
FISH 
FISH 
FISH 
FISH 
FISH 


CALCULATION OF THE PROBABILITY FOR BOTH DEGREES OF FREEDOM ODD FISH 
C - - FISH 


5 Y=1 . 0-X 

H=.63661977*SGRT < X*Y > 

FISH= * 63661 977* AC OS ( SORT ( X ) > 

IF ( N2 . EQ . 1 ) GO TO 6 
M=N2-2 

DO 6 1 = 1 * M i 2 

F I SH-FISH+H 

6 H=H*X*(I+l)/(I+2) 

6 IF(Nl.EQ.l) RETURN 
H=H*N2 

M=Nl-2 

DO 7 1=1, M, 2 

FISH-FISH-H 

7 H=H*Y*(N2+I)/(I+2) 

RETURN 

9 D1=N1 

02=N2 

DT = ( D1/D2 ) *F 

DN=SQRT< (2.*D2-1, )*DT>-SQRT (2.*D1 
X=DN/SQRT(1.+DT) 

FI SH=PH1 ( X ) 

RETURN 

END 

REAL FUNCTION PHIIX) 


-- — --pm 

C PHI 

C PHI CALCULATES THE AREA UNDER THE NORMAL CURVE PHI 

C A TRANSFORMATION AND J-FRACTION ARE USED ( SEE METHOD ) PHI 

C PHI 

C - — - PHI 

LOGICAL UPPER PHI 

I F < X»LT .-13.27 ) GO TO 6 PHI 

IF<X.GT*6.5) GO TO 8 pHI 

IF(X.NE.O.O) GO TO 2 PHI 

PHI=0,50 PHI 

RETURN PHI 

2 upper=x.gt.o.o PHI 

Z=- ( ABS ( X ) ) PHI 

Y= 5.6418953027302E-1* EXP(“ Z*Z /2.E0) pHI 

Z = z /1,414213562373 ie0 PHI 

T=0.0E0 PHI 

IF C ABS ( Y/Z > • GT • 0 » 0 ) T=Y/ ( Z**6. 9183675618730E-6 PHI 

1+5. 002535090 0390^-1/ (2+1. 23fiG7976H409E-2+7,7267300865678E-l PHI 

2/ <Z-4. 32639821430 53E0 +7 . 3456287718055E1/ (Z+l .504 0871 364290E1 PHI 

3+6.20862456572356E0 / ( Z+8 .8971612130791E0 +4 . 9 182171845874E1 PHI 

4/ (Z-2. 5106230 069509E0 -2 . 8225972942737E0/ (Z-9.7597917308472E-1 PHI 

5+2.4244213526837E1 / ( Z+ 1 * . 80 08570125081EO +4 . 9227853919002E-1 PHI 


FISH 

FISH 

FISH 

FISH 

FISH 

FISH 

FISH 

FISH 

FISH 

-FISH 

FISH 

FISH 

FISH 

FISH 

FISH 

FISH 

FISH 

1.) FISH 

FISH 

FISH 

FISH 

FISH 

PHI 


FISH=1. 0-FISH 
RETURN 
4 I=N1 
N1=N2 
N2=I 
RETURN 



8/ (Z+7 • 6621170927661E0 +5. 0285619125788E1/ ( Z-4 .6529284 984655E0 
7 )))))))))) 

T=T/2.E0 

IF ( UPPER ) GO TO 4 

PHI=T 

RETURN 

4 PHI=1.0E0-T 
RETURN 
6 PHI = 0,0 
RETURN 
8 PHI = 1.0 
RETURN 
END 

SUBROUTINE error 

COMMON /SISBUF / IBUF ( 35 ) . I UR ( 125 ) , IBL ( 35 ) , IBuFF ( 30 ) » KEE , KEF . 

+ MFUNC, IFILE* IERR 

COMMON /FF/ FITRA1(35).FITRA2<35)«FITRA3(35)»FITRA4(35) 

GO TO< 100 ,200,300 ,400 > IFILE 
100 IERR = IFETCH(FITRA1,3LIRS> 

CALL ST0REF(FITRAl,3LlRS,D> 

GO TO 500 

200 IERR = IFETCH(FITRA2,3LIRS> 

CALL ST0REF(FITRA2*,3LIRS.0) 

GO TO 500 

300 IERR = IFETCH(FITRA3 f 3LIRS) 

CALL STOREF<FITRA3,3LIRS»0> 

GO TO 500 

400 IERR = IFETCH(FITRA4,3LIRS) 

CALL STOREF(FITRA4»3LIRS»0) 

500 IF < IERR.EQ.0 ) RETURN 

PRINT 601. IFILE, IERR, KEE, KEF 
' RETURN 

601 format ( * ra*,ii,* error *«oio,2iio) 
end 

SUBROUTINE AnAC 0VA( y.X.L »NT, nob, treat, S L ,SS,XMS»F,PROBF,IOPT, 

2 XM.YM.SXX«SYY.SXY.NDF) 

dimension y ( 2 ) »x<2) .nob (2) , ym ( 2) ,xM(2 ) ,sl ( 2 j .ss ( 2 ) ,xms < 2) »F{2) ♦ 

2 PROBF ( 2 ) ,SXX<2) ,SYY(2) ,SXY(2) ,TREAT<2) ,NDF(2) 

SS ( 1 ) = 0 
SS ( 9 ) =0 
NTT=NT+1 
NT 2=NT +2 
NT3=NT+3 
SS ( 12 ) =0 
L=0 

DO 9 1=1, NT3 
SXX(I)=0 
SYY ( I ) =0 
SXY ( I ) =0 
XM(I)=0 
YM ( I ) =0 
9 CONTINUE 
DO 20 1=1 . NT 

IF< N0B( I ) .EG. 0 ) GO TO 99 
NO=NOB(I) 

DO 10 J=l,NO 
L=L + 1 

XM( I)=XM( I )+X(L) 

YM( I >=YM< I )+Y(L) 

SXX( n=sxX(I)+X(L)*X(t) 9n « 
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PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

PHI 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 

ERROR 
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ANACOVA 

anacova 

ANACOVA 

ANACOVA 

ANACOVA 

ANACOVA 

an-acova 
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ANACOVA 

anacova 
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ANACOVA 

ANACOVA 

anacova 

anacova 

ANACOVA 

anacova 

anacova 

anacova 

ANACOVA 




SYY(I)=SYY(I)+Y ( L ) * Y ( l. ) 

10 SXY ( I )=SXY ( I )+X(L)*Y (l ) 

Y«(I\ITT)=YM(NTT)+Yl u i{ I ) 

,, XMCNTT|=XM(NTT)+XM(I) 

SXX(NTT)=SXX(NTT)+SXX ( i ) 

SXY (NTT )=SXY (NTT) +SXY ( I ) 

SYY(NTT)=SYY(NTT> +SYY ( I ) 

SS(12)=SS(12)+SYY(I) 

XM ( I ) =XM ( I )/MO 

YM( 1 )=YM(1 )/NO 

SXX(I)= SXX( I ) - f\iO*XM ( J )**2 

SYY( I ) = (SYY U) — MO* YM ( J ) **2 ) / ( nO-1 . ) 

SXY(I)= SXY(I)-NO*XM( I )*YM<I ) 

SL ( 1 )=SXY ( I ) /SXX ( I ) 

TREAT ( I ) = YM ( I > -SL ( I ) *yM < I ) 

SS( 1 ) = SS< 1 ) +NO*YM ( I ) *yM I ) 

SS (9) =SS(9)+SXX ( I ) *SL ( I ) **2 
SXY ( NT3)=SXY (NT3)+N0*y|*i< I > * Y|M I ) 

SXX(MT3)=SXX (NT3)+N0*XMC I ) **2 
SXX (NT 2 ) =SXX ( NT2 ) +SXX { l > 

SXY(NT2)=SXY(NT2)+SXY ( I ) 

SXX < I ) =SXX t I I / ( NO-1 • ) 

SXY ( 1 )=SXY(I )/(NO-l. ) 

20 CONTINUE 

YM(NTT)=YM(NTT)/L 

XM(NTT)=XM(NTT)/L 

SXX (NTT ) = < SXX (NTT) -L*XW< NTT) *XM (NTT ) ) / < L-l . ) 

SXY ( NTT > = < SXY < NTT > -L*XM ( NTT >*Ym NTT > )/(L-l. ) 
SSU=L*YM(NTT )*YM (NTT) 

SYY(NTT)=(SYY<NTT)-SSU)/(L-1. ) 

SL ( NTT ) =SXY ( NTT ) /SXX (NTT) 

SS ( NTT ) =SS ( 12 ) 

SL ( NT 2 ) =SXY ( NT2 ) /SXX ( NT 2 ) 
SS(6)=SXX(NT2)*SL(NT2)**2 
SXX ( NT2 )=SXX (MT2 ) / (L-NT ) 

SXY(NT2)=SXY(NT2)/(L-MT) 

SS ( 8 ) =SS ( 9 > -SS ( 6 ) 

SXX { NT3 ) = ( SXX (NT3 ) - L *XM ( NTT ) **2 ) /(NT-1.) 

SXY ( NT3 ) = ( SXY ( NT3 > - L*XM ( NTT > *YM ( NTT ) > / < NT- 1 . ) 
IF(SXX(NT3> .GT.O ) GO TO 50 
SL<NT3)=1.0E26 
TREAT ( NT3 ) =YM ( NTT ) 

SS(«+) = 0. 

SS ( 3)=0. 

GO TO 51 

50 CONTINUE 

SL(NT3)= SXY(NT3)/SXX(MT3) 

SS < 4 ) = (NT-1. ) *SXX ( NT3 ) *SL (NT3)**2 

SS ( 3 ) = (SL(NTT)-SL(MT.X) )**2/( 1 ./( SXX ( NT5 )*< NT-1 . ) ) 
2 + 1./ (SXX (NT2)« (L-NT ) ) ) 

TREAT ( NT3 ) =YM ( NTT ) -SL ( NT 3 ) *X|»| ( NTT ) 

51 CONTINUE 

SS( 1 >=SS( 1 >-SSU 
SS(5)= SS ( 1 ) -SS ( 4 ) 

SS ( 2 1 = CL-1. )*SXX(NTT)*SL (nTT)**2 
SS ( 10 ) =SSU+SS( 1 ) +SS (9) 

SS ( 7 ) =SSU+SS(1)+SS(6) 

TREAT (NTT)=Yi“MNTT)-SL(NTT)*XM(NTT) 

SS<11 ) =SS ( 12 ) -SS (10) 

TREAT ( NT2 ) =0 onQ 
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IMOF ( 1 ) =nt- 1 
NDF(2)= 1 
NDF(3)= 1 
NDF{4)= 1 
NUF(5>= NT -2 
NUF(6)= 1 
NUF (7)= NT + 1 
NL)F ( 0 ) = NT-1 
NUF(9)= NT 
NUF ( 10 )=2*NT 
NUF (12)=L 
NDF ( 11 )=L-NDF< 1 0 ) 

UU 55 K-l ill 

IF ( NDF ( K ) *GT • 0 ) GO TO 5<+ 

xns(K)=o 

GU TO 55 

54 XMSUO=SS(K)/NDF(K) 

55 CONTINUE 

DO GO K=1,10 
F(K)=XMS(K)/Xl u 'S(U ) 

IF IF (K ) .GT.O. ) GO TO 59 
PR08F (K)=0. 

GO TC 60 

59 PROOF ( K ) = F 1 SH ( F C K ) .MDfCK) .NUr ITU 

60 CONTINUE 

1FII0PT.LT. 1) GO TO 9^9 
WRITE (6.150) 

WRITE (6.1) 

1 FORMAT ( ao TREATS). TlO . SNUNa). T 15 . qIINDEPEUUENTom T34 . a/ INDEPENDENTS ♦ 

2 T5q i 9DE PENDENT ? .T67.b)DEPENDENTSl. Te 3 iqiCOVA(1ANCL; 1 i, 

3 T99, <.0 INTERCEPTS, Til 8. aiSL0PEaj/2X, SME N T3 » T 10 « 3UEK-3 , 

4 T20 « rilMEANS) * T35 » 3V AR 1 ANCE3 .7 51 . aMLANS » T67 « b V AR I AiJCESi// ) 

DO 70 1=1 .NT 

WR I TE ( fe . 2 ) I .NOB ( I ) , XM ( I > »S*X ( I I ♦ Yh 1 1 ) . STY 1 1 ) . SXY 1 1 > i TREAT ( I ) . 

2 SL(I) 

70 continue 

2 FORMAT (2X. 15, IX. 15.7 (4X.G13.6) ) 

WR 1 TE ( 6. 4 ) SXX(NT2) ,SXY (NT2> ,SL(NT2) 

4 FORMAT (lX,124nH-)/2X,alSL0PF.ai2GXiGl3.t,,3aX.G13.fa,21X.G13.6) 
WRITE! 6,5) SXX(NT3> ,SyY(NT3) . SL I NT3 ) 

5 FORMAT (/2X.aSLoPE a.2bX,Gl3.6,3bX,Gl3.6,21X,Gl3.6/2X,a)oF MEANSci) 

WR1TE(6.3) L ,XM(NTT),SXX(NT1 ) ,YM(NTT) ,SYT (IMTT).SXY(NTT) , 

2 TKEAT(NtT) .sl(ntt) 

/ 3 F0RMAT(/2X,aT0TALa,lX,T5,7(4x,G13.6) ) 

WR I TE ( 6 , 150 ) 

IFII0PT.EQ.3) GO TO 80 

WRITE (6,100) SSU. (NDF ( j ) ,SS ( 1 ) ,XMS ( I ) , F ( I ) ♦ PROBF <x)*I=l, 5) 

100 FORMAT (//,15X,93{1H-) ,/.47X.al ANALYSIS OF COVARIANCE T ABLE3 , / » 1 5X , 
193I1H-) ,/»15X,aS0URCE OFS . 9X , aiDEGREES 0 Fa. 5 X.aS.UM OFS , 1 0 X . oiMEANa ♦ 
212X.aF-a,14X,apRoPa,/.l5X,aVARlATloNa»9X,aFREEDONa,6X.aSyUARESa. 
39X,aSQUAREa, lOX.aRATloa. llX»aFa*/» 15X,93( 1H- ) ,/♦ 15X, SMEANa, 19X. 
*aia,8X.Gl3.6,/«15X.aTpFATMEiMTSa.4X, 110 , bX , 4( Gl3. fa , 3X ) ,/,15X, 

493 (1H-),/, 

A 15X,ai POPULATION a,lX,I10,8X,4(Gl3.b.3X) 

B ./.15X.81 POP,- SLOPES, IX. 1 1 0 , 6X , 4 ( Gl3 ,b , 3X > 

C ,/.15X,a' OF MEANS a)./,15X . 

* 93(lH-> ,/,15x .aSLOPE OF ML ANS3 , I 10 , 8x , 4 ( G 1 3 , 6 ♦ 5y ) 

D ,/ , 15X.SDIFF MEAN SL . a , IX , I 1 0 , RX , 4 ( 61 3 . b , 3X ) 

E. ./.15X.3AND PAR. SL,a 

F 1 -210- 
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WR I TE ( 6 » 1 02 ) 


(NDF( I ) ,SS< I ) ,XMS< I ) » F < I ) * PROOF < I ) » 1 = 6, 10 ) , 
NDF <11 > ,S5< 11 ) »XMS < 11 ) ,NDF ( 12 > ,SS( 1? ) 


102 format ( 

F 


LINtoiilXtllO«OX«4 (Gl3.b,3x) 
al , / » 1 5X » 

L J N L oJ * 1 X i 110, 8a, 4(613. 6, 3X) 
u) » / , 1 5 X » 

nitlX, 11 G»Oa, 4 <Gl3.b,5X) 


qJ»1X» 1 1 0 » 8 X , 4 (613. 6, 3X) 

3 , / , 15X , 

3, IX, 11 0,8X,4 <Gl3.b*3X) 

o; 

tv,lX,IlU«6A,2(Gl3,ij«3X} » / » 
niilXtl'10«6Xt 6 1 3 . 6 , / , 


,/, 15X,aPARALLFL 
G ,/.15X»a SLOPE 

H 93 ( 1H- ) , / , 15X , oIPaRALI f.L 
I , /*15X,a MOPEL 

J 93HH-) ♦/« 15X ♦SINGM- 
K ♦ / ♦ 1 5X » bi PARAI LELISMui, 

1 »/*i5X* a individual 

M , / * 1 5X » al SLOPES 

N 93 ( 1H- J ./*lSX.aHEGRESRlON 
0 ,/,l5X*3 MODEL 

P « / * 15X »oit".RROK 

* 15X * 

Q 93 ( 1H- ) »/»lIjX»a TOTAL 

* 15* , 

R 93 (1H- ) ) 

WRITE: (6,150) 

IF < IGPT.EQ.l) RETURN 
80 NDF ( 7 ) =NDF ( 7 ) -1 
NDF (10 >=Nl)F ( 10 ) -1 
NO) (12 )=MjF( 12 )-l 
SS ( 7 ) =SS ( 7 ) “SSU 
SS( 10 ) =SS l 1 0 ) -SSU 
SS(12)=SS(12)-SSU 
XMS(7)=XMS(7)/NDF(7) 

XMS ( 1 0 ) =XMS (10) /NDF ( 10 ) 

F(7)=XMS(7)/XMS( 11 ) 

F ( 1 0 ) = XMS ( 1 0 ) /XMS ( 1 1 ) 

PKOBF ( 7 ) =F ISM ( F ( 7 ) « NDF ( 7 ) ,NUF ( 11 ) ) 

PKOBF ( 10 )=F ISH(F ( 10 ) ,MDF ( 10) ,NOF ( 11 ) ) 

WRITE ( 6, 101 ) ( N D F ( T ) , SS ( I ) t XMS ( I ) , ( (I) i PROBE ( I ) * 1 = 1 , 5) 

101 FORMAT ( / / , 1 5X t 93 ( 1H- ) » / , 3BX , oirtNAL YS 1 S OF COVARIANCE TABLE (MEAN 
A F FERENC E )3»/,15X, 

193I1H-) » / , 1 SX » 3S0URCE 0F9 , 9X « aiDEGREES OFnU5X,dSUM OFa , 1 OX , SIMEANn) 
212X « SiF - 3 » 14X * aPROBai , /»l5X«n>VAKlATI ON3 , 9X , a'FREEDOMw » 8X , iSOUARES^ , 
39X,aS0UAREai, 10X,gRATIoa» HX »S!Fa, / , 15X, 93( 1H- ) ,/, 

* 15X*aTpEATMENTS5!,4X»I10*6X,4lGl3.f I »3X),/,15X, 

493 ( 1 H— ) * / » 

A 15X,ai POPULATION a,lX,I10«8X,4(Gl3.6,3X) 

B ,/, 15 X,ai POP.- SLOPLa,lXtIlO,8X, 4(013.6, ox) 

C ,/,15X,a OF MEANS a,/, 15X, 

* 93(1H-) ,/tl5X,3SL0PE OF MEAfoSa , I 1 0 , 6X , 4 ( Gl3 . 6 , 3X ) 

D , / 1 15X , 3DIFF iwFAN SL , a , IX 1 1 10 , 8X , 4 ( Gl3 . b, 3X ) 

E , / , 15X , d> AMD p A R • SL.a 

F ) 

WRITE ( 6,102) < N D F ( I ) , S S ( I ) , X MS ( 1 ) » F ( I ) ,PROBF ( i ), 1 = 6,10) , 

2 NLF ( 11 ) ,SS ( 11 ) , XMS (11 ) , NDF ( 12 ) ,SS ( 12 ) 

WR I TE ( 6 , 150 ) 

150 FORMAT (1H1) 

999 RETURN 
99 IOPT=-l 
RETURN 
END 

SUBROUTINE FCUJRG ( DATA ,M, ISlGiv, WORK ) 

COOlEY-TUKEY FAST FOURIER TRANSFORM IN USASI BASIL FORTRAN. 
ONE-DIMENSIONAL TRANSFORM OF COMPLEX DATA, ARBITRARY NUMBER OF 
POINTS. N POINTS CAN BE TRANSFORMED IN TIME PROPORTIONAL TO 
fg*LGG<N) (FOR N NON-PPIME), WHEREAS OTHER METHODS TAKE N**2 TIME 
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ANACuVA 
anacova 
ANACoVA 
ANACOVA 
ANACOVA 
A I'J A C I i V A 
ANACoVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACoVA 
ANACOVA 
ANACOVA 
Ah A C 0 V A 

awacova 

ANACOVA 
ANACOVA 
ANACOVA 
A! lACOVA 
AliACtjVA 
ANACOVA 
. ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
DIAfJACOVA 
ANACOVA 
, ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACoVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACoVA 
ANACOVA 
ANACOVA 
ANACoVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACOVA 
ANACoVA 
FOURG 
FOURG 
FOURG 
FOURG 
. FOURG 
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FURTHERMORE, BECAUSE FEWER ARITHMETIC OPERATIONS ARE PERFORMED » FOURG 
less error IS BUILT up. the transform DONE IS-- FOURG 

DIMENSION DATA(N) , TRANSFORM ( N ) ,W0RK<N) FOURG 

, COMPLEX OATA,TRANSFORM,WORK FOURG 

TRANSFORM ( K ) = SUM ( D AT A ( J > *EXP ( I S I GN*2*P I *1* < J-l ) * < K-l ) /N ) ) , FOURG 

SUMMED FROM J = 1 TO N FOR ALL K FROM 1 TO N . THE TRANSFORM FOURG 

VALUES ARE RETURNED TO DATA » REPLACING THE INPUT. N MAY BE ANY FOURG 

POSITIVE NUMBER, BUT IT should BE non-pkime FOR speed. ISIGN = FOURG 
+1 UR -1. A -1 TRANSFORM FOLLOWED BY A +1 ONE (OK VICE VERSA) FOURG 

RETURNS N TIMES THE ORIGINAL DATA. WORK IS A ONE-DIMLNSIONAL FOURG 

COMPLEX ARRAY OF LENGTH N USED FOR WORKING STORAGE, FOURG 

RUNNING TIME IS PROPORTIONAL TO N * (SUM OF THE PRIME FACTORS OF FOURG 
N). FOR EXAMPLE, N = i960, TIME IS TO * 1960 * ( 2+2+2+5+7+7 ) . FOURG 
NAIVE METHODS DIRECTLY IMPLEMENTING THE SUMMATION RUN IN TIME FOURG 

PROPORTIONAL TO N**2. AN UPPER BOUND FOR THE RMS RELATIVE ERROR FOURG 
IS 5 * 2**(-B) * SUM ( F**l • 5 ) , WHERE B IS THE NUMBER OF BITS IN FOURG 

THE FLOATING POINT FRACTION AND THE SUM IS OVER THE PRIME FOURG 

FACTORS OF N. WRITTEN BY NORMAN BRENNER, MIT LINCOLN LABORATORY, FOURG 
AUGUST 1968. SEE--IEFE TRANSACTIONS ON AUDIO AND FLEC TROACOUS f ICSF OUR g 
(JUNE 1967) f SPECIAL ISSUE ON THE FAST FOURIER TRANSFORM. FOURG 

DIMENSION DATA(l), WOpK(l), ,IFACT(32) FOURG 

TWOP I = 6. 2831 653 07* FLO AT < ISIGn) FOURG 

FACTOR N INTO ITS PRIME FACTORS, NFACT IN NUMBER. FOR EXAMPLE, FOURG 
FOR N = I960, NFACT = & AND IFACT(IF) r 2, 2, 2, b* 7 AND 7. FOURG 

IF=U FOURG 

NPAKT=N FOURG 

DO 50 10=1, N, 2 FOURG 

IDl V=ID FOURg 

IF (ID-1) 10,10,20 FOURG 

10 ID I V=2 FOURG 

20 1QU0T=NPART/I0IV FOURG 

IF (NPART-IOIV+IQUOT) 40,30,40 FOURG 

30 I F= I F + 1 FOURg 

IFACT ( IF )=IDIV FOURG 

NPART=1QU0T FOURG 

GO TO 20 FOURG 

40 IF (IOUOT-IOIV) 60,60,50 FOURG 

50 CONTINUE FOURG 

60 IF (NPART-l) 80,80,70 FOURG 

70 IF=IF+1 FOURG 

IFACT ( IF )=NPART FOURG 

80 NFACT=IF FOURG 

SHUFFLE THE DATA ARRAY BY REVERSING THE DIGITS OF THE INDEX. FOURG 

REPLACE DATA(I) BY DATA(IREV) FOR ALL I FROM 1 TO N. IREV-1 IS FOURG 
THE INTEGER WHOSE DIGIT REPRESENTATION IN THE MULTI-RADIX FOURG 

NOTATION OF FACTORS IFACT(IF) IS THE REVERSE OF THE REPRESENT ATI ONFOURG 
OF 1-1. FOR EXAMPLE, IF ALL IFACT(IF) = 2, THEN FOR 1-1 = 11001, FOURG 
IREV-1 = 10011. A WORK ARRAY OF LENGTH N IS NEEDED. FOURG 

IP0=2 FOURG 

IP3=IP0*N FOURG 

IWORKsl FOURG 

I3REV=1 FOURG 

DO 110 13=1, IP3, IPO FOURG 

W0RK(IW0RK)=DATA(I3REV) FOURG 

WORK (IW0RK+1)=DATA(I3REV+1) FOURG 

IP2=IP3 FOURG 

DO 100 IF=1, NFACT FOURG 

IP1=IP2/IFACT(IF) FOURG 

I3REV=I3REV+IP1 FOURG 

IF (I3REV-IP2) 110,110,90 -212- FOURG 



nnooonnon 


90 I3RLV=I3REV-IP2 FOURG 

100 IP2=IP1 FOURG 

110 IW 0 RK=IW 0 RK+rP 0 FOURG 

IW0RK=1 FOURG 

DO 120 13=1. IP3, IPO FOURG 

OATA< 13) =U'OkK < I WORK ) FOIJRG 

DATA ( 13+1 ) = WORM IWORK + I ) FOURG 

120 IWORK=IWORK+IPO FOURG 

PHASE-SHIFTED FOURIER TRANSFORM OF LENGTH IF ACT (IF). FOURG 

IPR.OD = IP1/1PO FOURG 

IRLM=N/ ( lFACT < IF ) *IPRoP ) FOURG 

DIMENSION DATA ( 1 PR 00. T FACT < IF ), IREN) .WORK ( IF ACT ( IF ) ) FOURG 

COMPLEX DATA, WORK FOURG 

DATA< II, J2. 13) = SUM (r)ATA (11, 12, 13) * W**(12-l)), SUMMED OVER FOURG 

12 = 1 TO IFACT(IF) FOR ALL II FROM 1 TO IPKOU. J2 FROM! 1 TO FOURG 

I F ACT ( IF ) AND 13 FROM 1 TO IRLM. FOURG 

W = EXP( 1SIGn*?*PI* 1*< Il-l+I(ROU*( J2-1 ) )/( IPRGD*IFACT ( IF ) ) ) . FOURG 

IF=0 FOURG 

IP1=IP0 FOURG 

130 IF (IP1-IP3) 140,240,240 FOURG 

140 I F = I F + 1 FOURG 

IFCUR=IFACT ( IF ) FOURG 

1P2=1P1*1FCUR FuURG 

THETA = TWOPI/FLOAT( IFCIIR) FOURG 

SINT H=S IN (THETA/2. ) FOURG 

R00TR=-2.*SINTH*SINTH FOURG 

C COS { THETA ) - 1 , FOR ACCURACY FOURG 

ROOTI=SIN<THETA ) FOURG 

THETA=TW0P1/FL0AT< IP2/IPC ) FOURG 

SINTH = SIN HHETA/2. ) FOURG 

WSTPR=-2.*SINTH*SINTH FOURG 

WSTPI=SIh (THETA) FOURG 

WMI NR= 1 . FOURG 

WMINI=0. FOURG 

DO 230 11=1, IP1, IPO FOURG 

IF ( IF CUR-2 ) 150,150,170 FOURG 

150 DO 160 13=11, 1P3,IP2 FOURG 

00=13 FOURG 

J1=I3+IP1 FOURG 

TEMPR=WMINR*DATA( Jl)-wr-:IM*DATA(Jl + l) FOIJRG 

TEMPI=WMINK*DATA< Jl+1 )+WNIf\ll*DATA< Jl ) FOURG 

DATA( Jl)=DATA( J0)-TEMPR FOURG 

DATA(J1+1)=DATA(J0+1 ) -TEMPI FOURG 

DATA( J0)=DATA( J0)+TEMPR FOURG 

160 DATA( J0 + 1)=DATA( JO + D+TEMPI FOURG 

GO TO 220 FOURG 

170 IWMAX=IP0*1FCUR FOURG 

DO 210 13=11 . IP3, IP2 FOURG 

I2MAX=I3+IF2-1P1 FOURG 

WR=WMiINR FOURG 

WI-UMINI FOURG 

DO 200 IWORK=l, IWMAX, IPO FOURG 

1 2=1 2MAX FOURG 

SUMR=DATA ( 12) FOURG 

SUMI=DATA( 12+3 ) FOURG 

ISO I2=I2-IP1 FOURG 

TEMPR = SUMIK FOURG 

SUMR = WR*SUMiR-WI*SUMI+nATA ( 12 ) FOURG 

SUMI=WR*SUMI+HI*TEMPR + DATA ( 12 + 1 ) FOURG 

IF (12-13) 190,190,180 FOURG 
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190 WORK ( IWORK)=SUMK FOURS 

WORM IWOHK+l)=SUMI F0UR6 

TEMPR=WR FOUR- 

' WR=WR*ROOTR-Wl*ROOTl+t.*R FOUR 

200 WI=Tf:rPR*KOOTI+WI*ROOTP+Wl FOURS 

I WORK=l FOURG 

DO 210 12=13, I2MAX»IPt FUURS 

DATA(I2>=WORK«IW0RK) FOURS 

DATA< 12 + 1 >=WORK< IWORKtl ) FOURS 

210 IWORK=1WOKK+IPO FOURS. 

220 TEMPR=WMIfJP FOURS 

WMlNR=WNlNR*WSTFR-WMlNl*KSTPl+WhINR FOURS 

230 WMINI = TEMHR*WSTpl4WMlM*WSTPH+WMINI FOURS. 

1P1=IP2 FOURG 

GO TO 130 FOURS 

240 RETURN FOURG 

END FOURG 

SUHhfjU T If\jL L/\GCoR<LA,A,LB,B.C,LSTART,LST 0 P) L.AGCoR 

lagcoR 

THIs ROUTINE CALCULATES A SAMPLE CKOSS-COPRElAT I DIM OF THE RECORD lAGCqR 
A OwER THE RECORD B wlTH LAGS BETWEEN lSTAKT AND |_SVQP AND lAGCoR 
STORES THE RESULT Ip C LAGCoR 

**** CAUTION ***** THERE is N° CHECK FOR A ZERO RtCORQ LAGCOR 

c LAGCOR 

DIMENSION A(LA) ,B(LB) t C(LA) LAGCOR 

DU 50 J=LSTART,LSTOP LAGCoR 

u=o.d lagcoR 

suma=o.o lagcoR 

SUM6=0.0 LAGCOR 

SA=0 • 0 LAG(! 

SB=0.0 LAGCOR 

IF(LB-(LA-J+1) ) 10,10,20 LA6C0H 

10 N=LB LAGCOR 

go to 30 lagcoR 

20 N = LA- J+l LAGCOR 

if<n.gt,o) go to 30 lagcoR 

DO 25 I=J,LST0P LAGCoR 

25 C(I)=-2. LAGCOR 

RETURN LAGCOR 

30 EN=N LAGCOR 

DO 40 1=1, N LAGCOR 

ij=i+j-i lagcoR 

SUMA=SUMA+A( IJ) LAGCOR 

SUMB=SUMB+B ( I ) LAGCOR 

SA=SA+A< IJ)*Al I J) LAGCOR 

SB=SB+B(I)*B(I) LAGCOR 

40 U=U+A ( I J ) *B ( I ) LAGCOR 

suma=suma/en lagcoR 

SUMB=SUMB/EN LAGCOR 

SA=SA-SUMA*SUMA*EN LAGCOR 

SB=SB-SUMb*SuMB*EN LAGCOR 

50 C(J>=(U-EN*SUMA*SUmB)/SQRT(SA*SB> LAGCOR 

return lagcoR 

end lagcoR 
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APPENDIX E - Format of Retrieval Cards 
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APPENDIX E - FORMAT OF CARDS REQUIRED FOR RETRIEVAL 
E.l General Structure 


All input retrieval cards have the following format: 

FORMAT (A4 ,1 X,A4 ,1X,14I5) 

Columns 1 - 4 Contain the key word for a control card. 

Column 5 Is ignored and may contain the last charac- 
ter of a key word. 

Columns 6-10 Contain a qualifier word. For a JOB card 
this word must be DATE, VOLU or BOTH. For 
other cards this word must be EACH, ALL, 
RANGE or blanks. A blank field is equiva- 
lent to ALL. 

The following is a list of the valid key words: 

JOB - Contains JOB ID, date save option, total volume 
save option, and plot control. 

STUDY - Specifies which studies are to be retrieved. 

DATE - Specifies which dates are to be retrieved. 

MAN - Provision to specify man to be retrieved, currently 
not implemented as program always uses man 1, 2 and 
3. 

TYPE - Specifies which sample types are to be retrieved. 

TEST - Specifies which tests are to be retrieved. 

END - End of run. 

EOF - End of job. 


E.2 Specific Retrieval Cards 


JOB CARD 


Column 1 - JOB 
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The second field of the JOB card (columns 6-10) must contain 
one of the following parameters. The parameter must always begin in 
column 6. 

DATE - Indicates that the Julian date of the samples 

being retrieved is to be saved for output. Always 
required for plot and most analysis. 

VOLUM - Indicates that the total 24-hour urine volume for 

the dates being retrieved is to be saved for output. 

BOTH - Indicates that both dates and total volumes are 
to be saved for output. 

(BLANK) - A blank field or mi spelled words will cause an 
error message and the default DATE to be used. 

The third field of the JOB card (columns 11 - 15) provides a 

place for the user's job identification number. It may be any 5 digit 

integer. However, if the integer is less than 1000, no plots will be 

produced. 

The remaining thirteen 5 column fields of the JOB card are for 
use by the statistical portion of this program. Currently these are 
not used, but in the future they can be used for control of statistical 
subroutines. They must always be 5 digit integers. 

STUDY CARD 

COLUMN 1 STUDY 

COLUMNS 6-10 RANGE, EACH, ALL or BLANK 

Blank or ALL - retrieves data from all missions 
EACH - retrieves data from study 

numbers specified in Col. 15, 

20, 25, 30, 35, 40, 45... 60. 
RANGE - Study range from Col. 15 to 

Col. 20. 

Study codes are found in Table E.3. 

“l - 
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DATE CARD 

COLUMN 1 DATE 

COLUMNS 6-10 EACH, ALL, Blank Range 

ALL = Blank Get all dates 
EACH Use individual dates In 

Col . 15 + up. 

RANGE Date range from Col . 15 to Col . 

20 

Dates are Julian Dates. Date ranges for specific missions are found 
In Table E.3. 

MAN CARD 

COLUMN 1 MAN 

COLUMNS 6-10 Same as DATE card except Man numbers are 
specified. (See Table E.3.) 

TYPE CARD 

COLUMN 1 TYPE 

COLUMNS 6-10 Type codes are same as DATE card, found in 

Table E.3. 

TEST CARD 

COLUMN 1 TEST 

COLUMN 6 RANGE 

COLUMNS 11-15 Starting test of range 
COLUMNS 16-20 Ending test of range 
If only one test, the test must appear in both fields. See Table B.l 
for valid test numbers. 
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END CARD 


When an END card is encountered, the program starts the 
retrieval. Therefore,all search criteria indicated on the JOB, STUDY, 
DATE, TYPE & TEST cards must be read in before the END card. There 
must be an END card for each run. 

The first run must contain at least one JOB card, STUDY card, 
DATE card, TYPE card, and TEST card. These initial parameters remain 
as the search criteria for each succeeding run, unless changed by 
another JOB, STUDY, DATE, TYPE or TEST card. There may be no more 
than one JOB card per run, but each run may have as many STUDY, DATE, 
TYPE & TEST cards as required. 

EOF CARD 

When an EOF card is encountered, the program stops and the 
total job is considered finished. There may be as many runs within 
a job as needed by the user. Several jobs may be stacked. Parameters 
set in one job remain constant unless changed. 
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TABLE E.3 


STUDY 


NUMBER CODES FOR DATA FORMS 
TYPE 


DATA FORMS 


I 

ro 

ro 

0 

1 


1 

2 


SMEAT 
SKYLAB 2 


1 = FRESH URINE 

2 = FROZEN URINE 


■1 

-2 


TEST NOT PERFORMED 
LESS THAN DETERMINABLE 


3 = SKYLAB 3 

3 

S 

LYOPHILIZED URINE 

-3 = TO 

FOLLOW 




4 = SKYLAB 4 

4 

- 

URINE SKYLAB BAG SAMPLES (PREFLIGHT & INFLIGHT) 

-4 = CALCULATED AS COMBINED VALUES 


5 = APOLLO 17 

5 

= 

PLASMA 

-5 = LESS THAN A 24 HR. PERIOD 


6 = 

6 


SPECIAL PLASMA - PREFLIGHT LYTHEIUM EDTA 






7 = 

7 

- 

SERUM 


JULIAN 

DATES 



8 = 

8 

= 

10% URINE SAMPLE 


START 

LAUNCH 

SPLASH 

DOWN 

END 

9 = 

9 

= 

FROZEN PLASMA 

SMEAT 

180 

208 

265 



10 

= 


SKYLAB 2 

114 

144 

172 



11 



SKYLAB 3 

189 

209 

268 

285 


12 

= 


SKYLAB 4 

283 

320 

404* 



13 

=5 


APOLLO 17 

290 

342 

354 



14 

= 








15 = 


*Date is 39 of following year 


MAN 

SMEAT 

APOLLO 17 

1 = CDR 

Crippen 

Cernan 

2 = PLT 

Bobko 

Evans 

3 = SPT 

Thornton 

Schmitt 

4 = Cl 

Alexander 

Duke 

5 = C2 

Strzynek 

Roosa 

6 = C3 

Laird 

Young 

7 = C4 

Kimzey 

A1 exander 

8 = 


Buchanan 

9 = 

* 

La Pinta 


SKYLAB 2 SKYLAB 3 SKYLAB 4 

Conrad 
Weitz 
Kerwi n 
Schweikart 
Musgrave 
Me Candless 
A1 exander 
Hordinsky 
La Pinta 


E.3 Codes For Data Forms 



E.4 Sample Input Card Decks 


JOB DATE 400 

STUDY EACH 3 

DATE ALL 

TYPE EACH 1 

TEST RANGE 519 523 

END 

EOF 


JOB DATE 
STUDY EACH 
DATE ALL 
TYPE EACH 
TEST RANGE 
END 

JOB DATE 
TEST RANGE 
END 
EOF 


4300 

3 

5 

312 314 


4301 
317 320 
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APPENDIX F - MISCELLANEOUS INFORMATION 
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F.l - SAMPLE NUMBERS 


Sample numbers as they exist in the sample directory for 
the various missions: 

SMEAT 2-674 

APOLLO 17 675-936 

Sample number for the Skylab missions are not separated. 
SKYLAB 2 937-1490 

SKYLAB 3 937-2256 


SKYLAB 4 


937-2256 



F.2 ADDITION OF NEW DATA ITEMS 


Program Build 


1. Increase Dimensions On: 


INDX 

INDX1 

INDX2 

INDX3 

INDX4 

INDX5 


The order of additions is determined 
by the form number and form position 
of the new item. 


2. In data array of INDX add in test number of new data. 

3. Data array of INDX1 add in a U or B for new data in 
position corresponding to position in INDX. 

4. Add appropriate name into INDX2 array. 

5. Add index of item In mass storage record into INDX3. 

6. Add form number into INDX4. 

7. Add field number on card form. 

8. Decode statement and format for card number involved 
changed increase IEND and DO parameter. 

9. Add 1 to all following K values. These are start positions 
in mass storage record. Note DIET parameters work down from 
top. 

10. Increase end parameter for DO 81 in UPDATE card processor. 

11. Mass storage records must be checked to insure space. 


Program Retrieve 

1. In subroutine RETRIEVE 

LREC is maximum 125 for URINE and 25 for BLOOD - if 
additions run over these numbers dimensions must be 
changed on LTEST, IBL and/or IUR. 
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2. In subroutine TEXT 

Insert TEXT name of new item into MBLD or MURN array 
indexed by test #. May require additional space. 
Insert units as above into MITS, MITB. 


K 

I END 


2 

7 

2 8 

8 

12 

9 12 

19 

16 

20 

34 

10 

35 

43 

5 

44 

47 

16 

48 

62 

15 

63 

76 

16 

77 

91 

15 

92 

116 

11 

117 

Search INDX4 

for card number 


Check INDX5 

for match to J else continue search 

Pickup INDX3 

as index for store 
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F.3 AUXILLIARY FILES 


1. All data is for mission 3 (SKYLAB 3) 

2. Each file is for one man 

3. Data is from URINE file including DIET Data 

4. File names FMAN1 , FMAN2, FMAN3 for CDR, PLT, and SPT, resp. 

5. FORTRAN Unformatted 130 words/record 
Word 


and 126 

Sample number 

Integer 

2-105 

Urine Sample Data 

Real (See index Table B.l) 

106-115 

Not Used 


116-125 

DIET Data 

Real 

126 

Sample number 

Integer 

127 

STUDY 

All study 3 

128 

JULIAN DATE 


129 

MAN 

All 1 in file FMAN1 , 2 in 
FMAN2, etc. 

130 

Sample Type 

All URINE and DIET is type 1 
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F.4 AVAILABLE FILES AND CARD DECKS 


BUILD 

This program exists as a MODIFY program library (BUILD PL) 
and also as a card deck. A run deck to cause BUILD to create new 
files Is labelled CREATE and is listed in Section 3. A run deck to 
cause BUILD to update existing files is labelled UPDATE and Is also 
listed in Section 4. (See Appendix D for listings.) 

TYPLOK 

This program exists only as a card deck and is a programmers 
tool to insure integrity of the file structure. (See Appendix D for 
listings. ) 

RETRIEVAL 

This is the primary retrieval and analysis program, it 
exists as a MODIFY program library. A deck of control cards exists 
to cause execution of the program. Also sample data cards are 
available. (See Appendix D for listings.) 
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F.5 SAMPLE DIRECTORY RECORD LAYOUT: FILE RA1 CONTENTS (00 C RDS) 

Record Length 35 words 

Words 1-12 and 14 are binary integer. Word 13 is binary real. 


Refer to Appendix E for variable values 
Word Variable 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15-25 

26-35 


Sample Number 

Study Number (Mission Code) 
Julian Date of Sample 
Man Number 
Sample Type 
GMT 

Month of Sample 
Day of Sample 
Year of Sample 
TOTAL Volume ml 
BAG Volume ml 
BAG Number 
VDR 

Master Sample Number 
Alpha Remarks 
Unused 
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